danke dir rene, aber...
03.05.2005 15:50:42
niki
dieses makro soll mir tabellenblattnamen in hyperlinks wandeln, aber ich erhalte dauernd den laufzeitfehler 1004....kann mir jemand helfen...?
Sub Tabellennamen()
Dim i As Integer
Worksheets(1).[B2].Select
For i = 1 To Worksheets.Count
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, _
Address:="", _
SubAddress:="'" & Worksheets(i).Name & "'!A1", _
TextToDisplay:=Worksheets(i).Name
ActiveCell.Offset(1, 0).Select
Next i
End Sub