SaveAs .xlsm file as .xlsx with date&time as file name in current folder

[shoheiyuna]

Hi, I would like to:

1. SaveAs a current .xlsm file as .xlsx
2. With the file name: yymmdd hhmm & "h" (e.g. 231204 1045h)
3. In the same folder that the .xlsm file is in.

I have the macro and #1 and #3 works. However the file name keep ending up as FALSE.xlsx . I'm thinking the code in red is the issue but couldn't figure out the right code.
I've appended the code below. Appreciate if could point out what went wrong / and how to fix it. Thank you!

Sub SaveFile()
'
'   SaveFile Macro
'

    Dim wb As Workbook
    Set wb = Workbooks("Setup.xlsm")
    
    Dim dt As String, wbName As String
    dt =[COLOR=rgb(184, 49, 47)] Format(Now(), "yymmdd hhmm")[/COLOR]
    wbName = "h"
    
    Application.DisplayAlerts = False
    ActiveWorkbook.CheckCompatibility = False
    ActiveWorkbook.SaveAs Filename = ActiveWorkbook.Path & Application.PathSeparator & dt & wbName, 51
    Application.DisplayAlerts = True
    ActiveWorkbook.CheckCompatibility = True
        


End Sub

 

[kevin9999]

Try the following:

Sub SaveFile()
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & Format(Now(), "yymmyy hhss") & "h.xlsx", FileFormat:=51
    Application.DisplayAlerts = True
End Sub

 

[shoheiyuna]

Try the following:

Sub SaveFile()
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & Format(Now(), "yymmyy hhss") & "h.xlsx", FileFormat:=51
    Application.DisplayAlerts = True
End Sub

Thank you for the reply! Works perfectly. I've only amended slightly so that the date format is yymmmdd hhmm. Full code below:

Sub SaveFile()
'
'   SaveFile Macro
'

    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & Format(Now(), "yymmdd hhmm") & "h.xlsx", FileFormat:=51
    Application.DisplayAlerts = True
       


End Sub

 

[kevin9999]

Happy to help and welcome to the forum!