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.
 

Excel Facts

Copy PDF to Excel
Select data in PDF. Paste to Microsoft Word. Copy from Word and paste to Excel.

Forum statistics

Threads
1,213,557
Messages
6,114,291
Members
448,564
Latest member
ED38

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
Back
Top