VBA-Excel weird behaviour on SaveAs Dialog - Read On - SOLVED but sad

NotSoFastEddie Perhaps you can use this function instead of GetSaveAsFileName?

Function GetAFileName(initialName As String)
    Dim fd As FileDialog
    Dim i As Long
    Set fd = Application.FileDialog(msoFileDialogSaveAs)
    With fd
        .InitialFileName = initialName
        For i = 1 To .Filters.Count
            If LCase(.Filters(i).Description) Like "csv (comma delimited)*" Then
                .FilterIndex = i
                Exit For
            End If
        Next
        If .Show Then
            GetAFileName = .SelectedItems(1)
        End If
    End With
End Function