Hyperlinks now & then dont work on worksheet

[ipbr21054]

Morning,
ON my worksheet in column P i have invoice numbers.
These will have been hyperlinked to its invoice pdf in a folder on my pc.
Now & then like today when i click on an invoice number i see a message pop up saying CANNOT OPEN THE SPECFIED FILE.

I have looked at the hyperlink when broken & i see this.
.\..\..\AppData\Roaming\Microsoft\Excel\DR%20COPY%20INVOICES\24.pdf

I then apply the hyperlink to it so its then working again & then i see this.
C:\Users\Ian\Desktop\REMOTES ETC\DR\DR COPY INVOICES\24.pdf

Now i have at least 150 plus that are broken so is there a way to do a batch hyperlink ?

Any advise as to why this is also happening.



All the invoices are in the path shown below.
C:\Users\Ian\Desktop\REMOTES ETC\DR\DR COPY INVOICES

Then its just 1.pdf 2.pdf 3.pdf etc etc

Thanks

 

[ipbr21054]

If it helps you i use the following code of which i select the invoice number in the cell to hyperlink it.

Maybe it can be edited to just hyperlink each cell without me having to click each one ?
Thanks

Private Sub HyperlinkInvoiceNumber_Click()
        Const FILE_PATH As String = "C:\Users\Ian\Desktop\REMOTES ETC\DR\DR COPY INVOICES\"
    If ActiveCell.Column = Columns("P").Column Then
        If Len(Dir(FILE_PATH & ActiveCell.Value & ".pdf")) Then
            ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:=FILE_PATH & ActiveCell.Value & ".pdf"
            MsgBox "HYPERLINK WAS SUCCESSFUL.", vbExclamation, "HYPERLINKING THE INVOICE NUMBER"
        Else
            ActiveCell.Hyperlinks.Delete
            MsgBox (FILE_PATH & ActiveCell.Value & ".pdf" & vbNewLine & vbNewLine & "FILE IS NOT IN FOLDER SPECIFIED, PLEASE CHECK PATH IS CORRECT"), vbCritical
        End If
    Else
        MsgBox "PLEASE SELECT AN INVOICE NUMBER.", vbExclamation, "HYPERLINKING THE INVOICE NUMBER"
    End If

End Sub

 

[ipbr21054]

I have now sorted this thanks