Bestand openen op basis van celwaarde

[Cruffa]

Goededag,
ik heb verschillende bestanden in een lijst gecreerd naar aanleiding van een celwaarde. Nu wil ik in een ander bestand deze bestanden openen dmv een Macro. Ik heb onderstaande Macro gemaakt maar het werkt tot nu toe nog niet.

Zou iemand kunnen kijken:

Sub OpenTellijst()
'
' OpenTellijst Macro
'

Dim Pad As String
Dim docP1 As String

Pad = "G:\***\***\***\***\***\Integrale telling 2016\Tellijsten"
docP1 = Range("P1").Value & ".xlsx"

If Dir(Pad & docP1) <> "" Then
Workbooks.Open filename:=Pad & docP1
Else
MsgBox "Tellijst niet gevonden, controleer je gegevens.", vbExclamation
End If
End Sub

Nu krijg ik iedere keer de MessageBox terwijl het bestand er wel in staat met je juiste extensie.

 

[edmoor]

Maak er eens dit van:
Pad = "G:\***\***\***\***\***\Integrale telling 2016\Tellijsten\"

 

[Cruffa]

Maak er eens dit van:
Pad = "G:\***\***\***\***\***\Integrale telling 2016\Tellijsten\"

Oef slordigheidje.

Dankjewel edmoor