Creating a hyperlink with a macro

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim IB As String
If Target.Row = 1 Then Exit Sub
        If Target.Cells.Count > 1 Then Exit Sub
            If Target.NumberFormat = "[$$-409]#,##0.00" Then
            IB = InputBox("Enter Destination Cell In This Format A1", "Hyperlink Destination", "Type Here")
    ActiveSheet.Hyperlinks.Add Anchor:=Target.Offset(0, 1), Address:="", SubAddress:= _
        "" & IB, TextToDisplay:=Range(IB).Text
                Else: Exit Sub
            End If
End Sub

EDITED AS PREVIOUS CODE DIDN'T WORK CODE ABOVE WORKS FINE!