VLookup to Hyperlink

[Claire Jackson]

Hi,

I have a simple code thats stopped working and i have no idea why

Basically a web page is stored in a database so excel looks it up and is meant to take me there but it doesnt.

There are no errors it just seems to do it but doesnt if you know what I mean:

Sub Client_URL()

Dim InitialRange As Range
Dim Job_Ref As Range
Dim Client_URL As String


'Open the data table
Workbooks.Open ("\\PDDC01\ClaimManagement\0-CLAIRE\Daily Report CRM.xlsx")

'Workbook Activate
Workbooks("Test Form with CRM Data.xlsm").Activate

Set InitialRange = Workbooks("Daily Report CRM.xlsx").Worksheets("Table").Range("A1:DE1000")
Set Job_Ref = Workbooks("Test Form with CRM Data.xlsm").Worksheets("Sheet1").Range("$H$1")

Client_URL = Application.WorksheetFunction.VLookup(Job_Ref, InitialRange, 68, False)

'ActiveWorkbook.FollowHyperlink Client_URL
'MsgBox (Client_URL)
'Range("B4").Value = Client_URL

Workbooks("Daily Report CRM.xlsx").Close SaveChanges:=False

End Sub

 

[Claire Jackson]

Sorry the line 'ActiveWorkbook.FollowHyperlink Client_URL shouldnt be commented and it still doesnt work. Please help?