H
Helmut
Hi
I have this:
Dim Fname As Variant
Fname = Application.GetSaveAsFilename("c:\MESSER\" & Range("mesnum").Value &
Range("MONTH").Value & ".csv")
If Fname = False Then
MsgBox "You didn't select a file"
Exit Sub
End If
I have this:
Dim Fname As Variant
Fname = Application.GetSaveAsFilename("c:\MESSER\" & Range("mesnum").Value &
Range("MONTH").Value & ".csv")
If Fname = False Then
MsgBox "You didn't select a file"
Exit Sub
End If