Hade för en tid sedan en liknande fråga avseende sökväg i en Access aplikation.
Lösningen då blev att använda CurrentProject.Path.
Hur ser motsvarande kod ut i en Excel kod ??

Vill ha bort den hårdkokta sökvägen Loneborg i nedanstående.

Private Sub ReadFartyg()
Const Loneborg As String = "C:\Documents and Settings\Harry\Mina dokument\LöneProjekt\Löneborg.mdb"

Dim rsFartyg As New ADODB.Recordset 'Dimensionering av rekordset för lagring av sökta data

On Error GoTo ErrHandler_ReadFartyg 'Hantering av eventuella fel
FartygConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq= " & Loneborg

FartygSQL = "Select * FROM EnhetFartyg"
Set rsFartyg = FartygConn.Execute(FartygSQL)

mvh/Harry