Thread
:
initiating a macro
View Single Post
#
1
johnT
Posts: n/a
initiating a macro
does anybody know why this doesn't work:
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Set rng = Worksheets("Sheet1").Range("A1")
i = 1
For Each sht In Worksheets
rng(i, 1) = sht.Name
i = i + 1
Next
End Sub
Reply With Quote