Sub DropDown2_Change()


'putitrng.Rows(1) = ActiveSheet.DropDowns("combobox_test").Value

Dim s As Object
Dim ss As String

Set s = ActiveSheet.Shapes(Application.Caller)
Set ss = CStr(s.ControlFormat.Value)



ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="444", ScreenTip:= _
        "5435435345", TextToDisplay:=l

Stop

End Sub