Makro - åbn fil via sti i celle

Sub TstOpenFile()

OpenFilePath = Sheets("Sheet1").Range("A1").Value  'Stien til mappen med den ønskede fil
OpenFileName = "FilenDuVilÅbne.xls" * dette an selfølgelig også hentes fa en celle på samme måde som vi henter stien
Set objWB = Nothing

' tjek om fil allerede er åben
  For Each objOpenWB In Application.Workbooks
    If objOpenWB.Name = OpenFileName Then
      Set objWB = objOpenWB ' registrerer at jeg allerede har filen åben
      Exit For
    End If
  Next

If objWB Is Nothing Then
'MsgBox "Fil ikke åben i forvejen"
  Workbooks.Open Filename:=OpenFilePath & OpenFileName ' så vi åbne filen
Else
'MsgBox "Fil er allerede åben"
  Workbooks(OpenFileName).Activate '  så vi aktiverer blot en allerede åben fil
End If
' så har vi filen åben, og kan begynde overførslen

End Sub