Åbne Stifinder mappe baseret på sti opgivet i celle

Sub ToOpen()
On Error GoTo ErrorHandler    ' Enable error-handling routine.
Dim Location As Variant
Location = Range("J4").Value
ChDir Location
fileToOpen = Application.GetOpenFilename("Excel files (*.xl*), *.xl*")
If fileToOpen <> False Then
    Workbooks.Open fileToOpen
    Else
    MsgBox "Ingenting valgt."
End If
ErrorHandler:    ' Error-handling routine.
    Select Case Err.Number    ' Evaluate error number.
        Case 76    ' "Path not found" error.
        MsgBox "Stien ikke fundet, kontroller celle J4"
        End Select
End Sub