Insert Spaces in SaveAs Filename

[VinceF]

Greetings,
Hopefully a simple one. I've searched here and the web but couldn't find an answer.
I'm using the code below to save the results of a golf round.
As it is now the saved file looks like this... WED, NOV, 06QUOTA & SKINSROUND#2.XLSM

I'd like to have it look like this...WED, NOV 06 QUOTA & SKINS ROUND#2.XLSM (note the space between the date and the game type and between the game type and the round#2)
Ideally instead of a space there'd be a dash (-) but I don't think special characters are allowed, are they??

Sub SaveWithTodaysDate()
ActiveWorkbook.SaveAs ("C:\Golf\Indianwood\Results\" & ThisWorkbook.Sheets("Main").Range("AL2").Value & ThisWorkbook.Sheets("Main").Range("O2").Value & ThisWorkbook.Sheets("Main").Range("AI3").Value & ThisWorkbook.Sheets("Main").Range("AK3").Value & ".xlsm")

End Sub

Thank You,
VinceF
Office 2016

 

[mumps]

WED, NOV, 06QUOTA & SKINSROUND#2.XLSM

Where are the commas coming from? Can you post the actual contents of AL2, O2, AI3 and AK3?

 

[VinceF]

Where are the commas coming from? Can you post the actual contents of AL2, O2, AI3 and AK3?

Mumps...Thanks for your assistance..

AL2 is the date and it comes from a helper cell with this formula... =UPPER(TEXT(AQ18,"Ddd, Mmm, DD")) I can and have since simply removed the comma's and it looks cleaner now.
O2 is text and is the name of the game that is being played... it could read Quota, Quota & Skins, or just Skins
AI3 is again text and it reads Round#
AK3 is a number in the cell representing the round#

The is what the saved file name looks like now.
THU NOV 07Quota & SkinsRound#10

The is how I'd like it to look.
THU NOV 07 Quota & Skins Round#10

My desire to insert the spaces is trivial...but I can be a bit anal...plus I would learn more about how this amazing Excel works.

thanks
VinceF

 

[mumps]

Try:

Sub SaveWithTodaysDate()
    With Sheets("Main")
        ActiveWorkbook.SaveAs ("C:\Golf\Indianwood\Results\" & .Range("AL2").Value & " " & .Range("O2").Value & " " & .Range("AI3").Value & .Range("AK3").Value & ".xlsm")
    End With
End Sub

 

[VinceF]

Try:

Sub SaveWithTodaysDate()
    With Sheets("Main")
        ActiveWorkbook.SaveAs ("C:\Golf\Indianwood\Results\" & .Range("AL2").Value & " " & .Range("O2").Value & " " & .Range("AI3").Value & .Range("AK3").Value & ".xlsm")
    End With
End Sub

Mumps...That did the trick...exactly as I had hoped...very much appreciated....!
VinceF

 

[mumps]

You are very welcome.