pdf-Datei öffnen die im selben Ordner wie die xls

Hallo guten Morgen zusammen,
mit nachstehendem Makro (hier aus dem Forum von Nepumuk) kann ich eine bestimmte pdf-Datei öffnen die in einem bestimmten, näher bezeichneten Ordner liegt.
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal lpnShowCmd As Long) As Long

Public Sub Open_PDF()
ShellExecute FindWindow("xlMain", vbNullString), "open", "nachschlagen.pdf", _
vbNullString, "D:\Projekte\", vbMaximizedFocus
End Sub

Was muss ich ändern, wenn ich diese Datei (nachschlagen.pdf) öffnen möchte und diese sich im selben Ordner wie die geöffnete Excel-Datei befindet ich aber den Namen des Ordners und das LW nicht weis (kann ja vom User geändert bzw. irgendwohin kopiert werden).
Wer kann mir bitte helfen.
Gruß
Claudia