Deze macro in function

[Leenroc]

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

 

[Withaar]

http://www.ozgrid.com/VBA/WorkbookPath.htm

3 functie voorbeeld.

 

[Leenroc]

Top!

Opgelost