Fejl i makro - Annuller åbning af fil

Du mangler at tjekke, hvad .Show er. Den returnerer nemlig en værdi, der viser, om du har klikket OK eller Cancel i dialogen.

Så

If .Show = -1 then 'der er trykket OK
    navn = .SelectedItems(1)
else
    msgbox "Du har ikke valgt en fil."
endif

With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Show
        If IsEmpty(navn) Then Exit Sub
          navn = .SelectedItems(1)
End With

det var noget sludder jeg skrev

du har ret haj, den burde se sådan ud

With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
            If .Show = -1 Then    'der er trykket OK
            navn = .SelectedItems(1)
        Else
            MsgBox "Du har ikke valgt en fil."
        End If
    End With

kabbak -> ;-)

Jeg kunne ikke helt få lagt word-hajens forslag ind i min makro, så jeg har valgt at bruge kabbaks forslag - selvom jeg godt kan se at de ligner hinanden.

Det er nok, fordi jeg har valgt kun at skrive den del af din kode, der skal ændres og altså ikke at gentage den del af din kode, der fungerer.

kabbaks version er således min kode med din "udenom".

giv point til Word-hajen, det er jo hans kode jeg brugte ;-))

pst kabbak - hendes ;-)

Undskyld, det er ikke til at se kønnet, på brugernavnet ;-))

kabbak -> Det skal du da ikke undskylde; ikke til at vide.