Macro won't work - Please help

[JayLatimer]

I have a macro to convert urls in a column to the words Tax record. I can not
get it to work. Any help would be greatly appreicated. The Marco is:

Sub chngelink()
'
' chngelink Macro
'
' Keyboard Shortcut: Ctrl+z
Sub ChangelinkT()
Dim MyCol As String
Dim MySht As String
On Error Resume Next
MyCol = InputBox("Enter column LETTER(S)")
MySht = InputBox("Enter sheet name")
Lastrow = Sheets(MySht).Cells(Cells.Rows.Count, MyCol).End(xlUp).Row
For Each c In Sheets(MySht).Range(MyCol & "2:" & MyCol & Lastrow)
c.Hyperlinks(1).TextToDisplay = "Tax record"
Next
End Sub

 

[Steve Schapel]

Jay,

The focus of this newsgroup is macros in Access, the database program. Your
question seems to relate to Excel (where VBA procedures are called macros,
which is not the case in Access). You will have a better chance of a good
answer if you re-post your question to an Excel related group.