Method SaveAs of object '_Workbook' failed

[BenGreenhill98]

I'm trying to create a button that, when clicked, saves the whole file to a defined location under a name that is a concatenation of 3 cells. Here's my code so far but i'm clearly doing something wrong

Private Sub CommandButton1_Click()

    Dim strPath As String
    Dim strFolderPath As String
    

    strFolderPath = "H:\Desktop\"

    strPath = strFolderPath & _
        Range("A2").Value & _
        Range("E2").Value & _
        Range("F2").Value & ".xlsm"

    ActiveWorkbook.SaveAs Filename:=strPath

End Sub

 

[JoeMo]

What are the values of the 3 cells?

 

[BenGreenhill98]

What are the values of the 3 cells?

well it’ll be different each time I hit the button but an example is “1234578 Ben Greenhill”. I.e it’s an number, text, text

 

[JoeMo]

well it’ll be different each time I hit the button but an example is “1234578 Ben Greenhill”. I.e it’s an number, text, text

Assuming there are no forbidden characters for file names in those strings, try:

ActiveWorkbook.SaveAs Filename:=strPath, fileformat:= 52