Hyperlinks aus inputbox

[Tom2020]

hallo
ich habe diesen vba-Code aus Internet und versuche nach meiner Vorstellung anzupassen, bekomme einen Fehler: object erforderlich
kann jemand helfen?
Danke Euch



Sub WordLink()
    Dim rng As Range
    Dim rng2 As Range
    Dim rng3 As Range
 
    Set rng2 = Application.InputBox(Prompt:="Enter Cell Number or SheetName!Cell Number, e.g. Color!D16", Type:=8)
    Set rng3 = Application.InputBox(Prompt:="Enter Text to Disply with Hyperlink", Type:=8)
   
    rng.Parent.Hyperlinks.Add anchor:=ActiveCell, Address:="", SubAddress:=rng2, TextToDisplay:=rng3

With rng.Font
        .ColorIndex = xlAutomatic
        .Underline = xlUnderlineStyleNone
    End With

    With rng.Characters(Start:=9, Length:=4).Font
        .Underline = xlUnderlineStyleSingle
        .Color = -4165632
    End With
End Sub

[Kuwer]

Hallo,

ich tippe auf

Type:=2

Gruß Uwe

[Tom2020]

laufzeiterror    

[ralf_b]

mach aus rng3 einen String und nimm dann das "set"  weg 

dim rng3 as String
rng3 = Application.InputBox(Prompt:="Enter Text to Disply with Hyperlink", Type:=2)

[Tom2020]

Error 91 run time...
boject. vai oder mit bolc vari nicht gesetzt

[schauan]

Aktion? Abbruch?