Hello,

I have a mastersheet (charts) that runs a daily report, I add in a new worksheet everyday on the left hand side, I need have the name of the newest sheet in cell A60 in the mastersheet, if a new sheet is added then the cell must change accordingly, I have been using the following code for returning all the sheet names but the calculation time is taking too long due to the number of sheets.

Private Sub Worksheet_Activate()
Dim sht As Worksheet, c As Integer
For Each sht In ActiveWorkbook.Worksheets
  If Not sht.Name = "Charts" Then
        With Sheets("Charts")
        c = c + 1
        .Cells(c, 60) = sht.Name
        End With
    End If
Next sht
End Sub
any ideas

thanks reg