Code VBA "save as" keep debugging

[Controltower]

HI
I need a working code for:
Save current active sheet in a chosen folder and with a new filename
I need the window to pop up, where I can choose location and filename

Below string is keeping debugging...
.........

Sub SaveActiveSheetAsXLSWithDialog()
Dim SaveLocation As String
Dim fileName As String

' Show the Save As dialog to get the file name and location
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Save Active Sheet As XLS"
If .Show = -1 Then
SaveLocation = .SelectedItems(1)
fileName = Dir(SaveLocation)

' Check if the file name has the ".xls" extension; if not, add it
If Right(fileName, 4) <> ".xls" Then
SaveLocation = SaveLocation & ".xls"
End If

' Save active sheet as XLS
ActiveSheet.SaveAs fileName:=SaveLocation, FileFormat:=xlWorkbookNormal
MsgBox "Sheet saved as XLS: " & SaveLocation, vbInformation, "Save As XLS"
Else
MsgBox "Operation canceled by user.", vbExclamation, "Save As XLS"
End If
End With
End Sub

 

[RoryA]

Try using FileFormat:=xlExcel8 instead

 

[Controltower]

Try using FileFormat:=xlExcel8 instead

 

[RoryA]

xlExcel8 not xlExel8

 

[Alex Blakenburg]

Try renaming your variable fileName to something else eg fname or sFileName and do a find and replace on all except the save as line.
In save as it should appear with a capitalised F but it seems to be picking up the variable name.

 

[Controltower]

Sorry for being a DUMMY

 

[Alex Blakenburg]

Try adding this line before the SaveAs line.

ActiveWorkbook.CheckCompatibility = False

 

[RoryA]

Is there a reason for using the old .xls format?

 

[Controltower]

Is there a reason for using the old .xls format?

Would like to save at this directory: F:\Bring\Parcels\SA Sales\SA Customer Solutions B2B Parcels Express\Customer Logistics and Support DK
and just the active sheet - not the whole workbook as now
Still problem with "compatilibity" message

 

[RoryA]

That doesn't answer my question - is there a reason for using the old .xls format, rather than one of the newer formats? (that is the cause of the compatibility message)