What's Causing a Type Mismatch Error? .Cells(ActiveCell.Address) ??

Rekd

Banned
Joined
Apr 28, 2010
Messages
136
I have a part number in a cell and want to add a link to the cell next to it. I do something similar for long lists of parts and it works fine, but this method does not. Is it because I'm using .Cells(AciveCell.Address) ??

Here's the code I'm using:


Code:
 Sub AddOneURL()
Dim cellPointer As String
Dim sWS As String
Dim MyFile As String
Const cPath = "N:\pdfs\engineering\"
sWS = ActiveSheet.Name
    cellPointer = ActiveCell.Value
    ActiveCell.Offset(0, 1).Activate
 
MyFile = Dir(cPath & Left(cellPointer, 7) & "*.pdf")
    If MyFile <> "" Then
        Worksheets(sWS).Cells([COLOR=red]ActiveCell.Address[/COLOR]).Hyperlinks.add _
        Anchor:=Worksheets(sWS).Cells([COLOR=red]ActiveCell.Address[/COLOR]), _
        Address:=cPath & MyFile, TextToDisplay:="PDF"
    End If
End Sub

I'm sure I'm going about this wrong by activating the cell instead of referencing it, but I'm not sure how to extract the reference from the offset function. But I can't fix that until I fix the error message.
 

Some videos you may like

Excel Facts

Excel Joke
Why can't spreadsheets drive cars? They crash too often!

Watch MrExcel Video

Forum statistics

Threads
1,123,125
Messages
5,599,856
Members
414,342
Latest member
K Darrell Smith

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top