foutmelding 13

[wilbert1967]

hallo

Sub opslaan()

Dim fName As String

Do
    fName = Application.GetSaveAsFilename
Loop Until fName <> False
ActiveWorkbook.SaveAs Filename:=fName
End Sub

ik krijg foutmelding 13 typen komen niet met elkaar overeen
hoe moet fName dan gedefineerd worden?

mvg

 

[snb]

Niet, want overbodig.
De hele macro is overbodig, want als een bestand nog geen naam heeft verschijnt het hulpscherm automatisch.

 

[wilbert1967]

ik heb de var type variant gebruikt
en het werkt