Sub blah()
With Sheets("Master").Range("A1").CurrentRegion
For Each cll In .Cells
Sheets(cll.Text).Range("C1").FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
Next cll
'.Clear 'enable this line to clear the cells containing the sheet names on the Master sheet.
End With
End Sub
Sub blah2()
Application.DisplayAlerts = False
For Each cll In Sheets("Master").Range("A1").CurrentRegion.Cells
Sheets(cll.Text).Delete
Next cll
Application.DisplayAlerts = True
End Sub