If Not Intersect(Target, Range("AD:AD")) Is Nothing Then,,,,VLOOKUP??

Hi

I forgive my ignorance I am new to VBA and have ben trying to cut and paste various bits of code together to achieve my goal

end goal =

double click a cell in a column from which an embedded file (outlook message) is opened

The column contains 100's of entries but these boil down to 5 variants (each variant has its own email)

I can get the code to open up a single object but not to open up the object related to the value in the column

any help would be much appreciated
Thanks



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim Object99 As String

Object99 = Application.WorksheetFunction.VLookup(Objective, Worksheets("email").Range("b:c"), 2, False)
'MsgBox Object1



If Not Intersect(Target, Range("AD:AD")) Is Nothing Then

Application.ScreenUpdating = False

Sheets("email").OLEObjects("Object99").Verb

Me.Activate

Application.ScreenUpdating = True

Cancel = True

End If

End Sub

Hi Apologies this was an error on my part

I have removed the "" but it still doen snot work??

im sorry again, it was part of some code I copied and pasted...it does not mean anything

Thanks mate, you are a legend...have a great weekend!