Auto save as Cell M7 & M8

[alfgrey]

So i have this macro running currently


Private Sub CommandButton1_Click()
Dim Path As String
Dim FileName As String
Path = "C:\Users\OFFICE\Dropbox\XXX\XXX\2013-14\"
FileName = Range("M7")

ActiveWorkbook.SaveAs FileName:=Path & FileName & ".xlsm"
Application.Dialogs(xlDialogPrint).Show
End Sub

M7 being the invoice number. However I wanted to auto save as "M7 - M8" but i cant seem to find the correct way to express it. Im very new to macros so apologise if this is either very simple or actually not possible.

Thanks in advance for any advice

[ragulduy]

You almost have it...

Please Login or Register  to view this content.

[alfgrey]

You almost have it...

Please Login or Register  to view this content.

Many thanks!

I continued playing around, as i said im fairly new to this, i tried this (below) and seems to work, is this essentially the same as your code??

Private Sub CommandButton1_Click()
Dim Path As String
Dim FileName1 As String
Dim Filename2 As String
Path = "C:\Users\OFFICE\Dropbox\xxx\xxx\2013-14\"
FileName1 = Range("M7")
Filename2 = Range("M8")
ActiveWorkbook.SaveAs FileName:=Path & FileName1 & "-" & Filename2 & ".xlsm"
Application.Dialogs(xlDialogPrint).Show
End Sub

[ragulduy]

Yes it's the same thing.