Opens the save box but doesn't save the file

[Sypher]

I have this code attached to a button to rename and save the file where the user likes but the issue is that the file doesn't end up actually saving.

Here is the code below:

Private Sub CommandButton1_Click()
Dim IntialName As String
Dim fileSaveName As Variant
Dim equipment As Range
Dim employee As Range
Dim ws As Worksheet

Set ws = Worksheets("Fillable")

Set equipment = ws.Range("C9")
Set employee = ws.Range("G11")

InitialName = equipment & "_" & employee & "_Report"
fileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, _
fileFilter:="Excel Files (*.xls), *.xlsm")

If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName
End If

End Sub

Any help is appreciated!!!

 

[kevin9999]

Couple of things. Firstly, get in the habit of putting Option Explicit at the top of your Sub. That way you would have discovered that you declared IntialName As String but later in your code you tried to use InitialName as the string - notice the difference?
Secondly, you don't actually have any code line command that saves the file. The message box does nothing. You need something like:

ThisWorkbook.SaveAs fileSaveName

to actually save the file.