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

Bring active cell back into view
Start at A1 and select to A9999 while writing a formula, you can't see A1 anymore. Press Ctrl+Backspace to bring active cell into view.
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,163,711
Messages
5,833,251
Members
430,200
Latest member
ADLHMA2022

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