If the file was imported as a CSV file, you have to tell Excel what format to save it in:

ActiveWorkbook.SaveAs TheFile, xlWorkbookNormal

Sub SelectSaveFileName()
Dim TheFile As Variant

TheFile = Application.GetSaveAsFilename(Sheets(“Test Report”).Range(“$B$4″).Value & “.xls”, _
“Workbook (*.xls), *.xls”, , “Please save you file:”) ‘ SELECTS THE CELL AS THE FILE NAME

If TheFile = False Then
MsgBox “You cancelled; Your file was NOT saved!”

Else
ActiveWorkbook.SaveAs TheFile
MsgBox “You have saved ” & CStr(TheFile)
End If

End Sub

The file I run my macro on starts as a CSV file, but I want to save as an xls file. Do you see any issues with this? The macro is on my personal.xls now, but i want to in the end deploy as an addin. This is just the save subroutine from my macro–it is much longer. Thanks!
Bryan

Do you just want to save the file, or do you want to present the user with a default file name that they can change?

If you’re just saving the file, skip the dialog altogether. To insert a default file name into the Save As dialog, use this syntax:

Application.Dialogs(xlDialogSaveAs).Show arg1:=”C:\my documents\test.xls”

(Thanks to Dave Peterson, whose answer to the same question appeared in several places, including http://www.pcreview.co.uk/forums/thread-966348.php).

At the top of the article, I do state that if you don’t need much functionality around the save-as routine, you could use Excel’s built-in Save-As dialog.

GetSaveAsFileName is not designed to save a file, it’s designed to get the save-as file name. This allows the code to do various things before saving, and even skip the save if that’s what the programmer intended. This particular routine checks for duplicate file names, but it could instead automatically overwrite the existing file, or append duplicates with -1, -2, etc., or even append a date .

You might notics a line that says

ActiveWorkbook.SaveAs sFullName

This is the command that actually saves the workbook.