I want to make a save as with file name as with time stamp(space)text in range M2(space)Design Format

[Harshil Mehta]

I want to make a save as with file name as, time stamp(space)text in range M2(space)Design Format
example: 20200525 1747 Client Design Format
Range M2 = Client



Sub Make_saveas()

Worksheets(Array("Sheet1", "Sheet2")).Copy
With ActiveWorkbook
.SaveAs Filename:=Environ("USERPROFILE") & "\Desktop\" & Format(Now(), "YYYYMMDD HHMM, sheets(3).range("M2"), "Design Format"")& ".xlsx", FileFormat:=xlOpenXMLWorkbook
.Close SaveChanges:=False
End With


End Sub



Please help me with the above code.

 

[Fluff]

How about

.SaveAs Filename:=Environ("USERPROFILE") & "\Desktop\" & Format(Now(), "YYYYMMDD HHMM") &" " & Thisworkbook.sheets(3).range("M2") &  " Design Format.xlsx", FileFormat:=xlOpenXMLWorkbook

 

[Harshil Mehta]

How about

.SaveAs Filename:=Environ("USERPROFILE") & "\Desktop\" & Format(Now(), "YYYYMMDD HHMM") &" " & Thisworkbook.sheets(3).range("M2") &  " Design Format.xlsx", FileFormat:=xlOpenXMLWorkbook

Thanks, it worked perfectly.

 

[Fluff]

You're welcome & thanks for the feedback.