Ik heb een vraag,
kan deze macro ook in een function versie gemaakt worden? Zoja ik kan het niet wie wel?
Sub WorksheetNamen()
Dim lngAantalSheets As Long
Dim i As Long
Dim rnWorksheetNaam As Range
lngAantalSheets = Worksheets.Count
For i = 1 To lngAantalSheets
Set rnWorksheetNaam = Worksheets(i).Cells(1, 1)
rnWorksheetNaam = Worksheets(i).Name
Next i
End Sub
kan deze macro ook in een function versie gemaakt worden? Zoja ik kan het niet wie wel?
Sub WorksheetNamen()
Dim lngAantalSheets As Long
Dim i As Long
Dim rnWorksheetNaam As Range
lngAantalSheets = Worksheets.Count
For i = 1 To lngAantalSheets
Set rnWorksheetNaam = Worksheets(i).Cells(1, 1)
rnWorksheetNaam = Worksheets(i).Name
Next i
End Sub
