Åbn knap

Jeg har en åbn knap i mit regneark der ser således ud:

Private Sub CommandButton5_Click()

If Range("D2").Value = "" Then
    MsgBox "Der er ikke angivet et navn!", vbCritical
    Exit Sub
    End If

Dim map As String

map = "c:\timeregistrering\databaser\" & Range("D3").Value

If Dir(map, vbDirectory) = "" Then MkDir map

a = Dir(map & "\*.csv")
If a = "" Then
MsgBox "Du har ikke gemt nogen filer", vbCritical
Exit Sub
End If

ChDir map
Workbooks.Open (Application.GetOpenFilename("Ufærdige skemaer (*.csv), *.csv", , "Vælg ufærdigt skema"))

----------------------------------------------------

Hvis man trykker annuller/cancel i åbn dialogen, kommer VBA frem med en fejl om at den ikke kan finde 'false.xls'. Hvordan får man fjernet den popup?