View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
NickHK NickHK is offline
external usenet poster
 
Posts: 4,391
Default Activate web link via image object

Seems the code became unfortunately split. This is all a single line however
it look in your reader:
ThisWorkbook.FollowHyperlink
Application.Worksheetfunction.Lookup(.Range("H20") ,SourceWS.Range("FM3:
FM27"),SourceWS.Range("FN3:FN27"))&.Range("E16")

NickHK

"MIKESX" wrote in message
oups.com...

Hi NickHK:

Thank you for your assistance. Here is what I put into the spreadsheet
marcos.

Sub HyperLinkedButton()
Dim SourceWS As Worksheet
Set SourceWS = Worksheets("DOWNLOAD-CALC")
With ActiveSheet
ThisWorkbook.FollowHyperlink

Application.Worksheetfunction.Lookup(.Range("H20") ,SourceWS.Range("FM3:
FM27"),SourceWS.Range("FN3:FN27"))&.Range("E16")
End With
End Sub

Your code seems short and sweet. I don't know if it works as yet,
because I am getting a compile error that highlights the"&" and says it
was expecting an "=" sign.???

Any ideas? I am on a Mac running Microsoft Office 2004. OSX 10.3.9.