Sub derHyperspace()
Dim strName As String
' der Tabellenname (Register) des letzten Arbeitsblattes enthält Leerzeichen
strName = Sheets(Sheets.Count).Name
If InStr(strName, Chr(32)) Then _
strName = Chr(39) & strName & Chr(39)
With ActiveSheet
.Range("D43").Hyperlinks.Delete
.Hyperlinks.Add Anchor:=Range("D43"), Address:="", SubAddress:= _
strName & "!A1", TextToDisplay:=Range("D43").Value
.Range("D43").Hyperlinks(1).Follow
'NewWindow:=False = default
'AddHistory:=True = not used
End With
End Sub
|