Save File with TimeStamp

Hi All, I've got the below code which gives me "Type mismatch" on 'CStr'. Would you be so kind please and advise as to how I can save this file so that it follows the outlined format below?

    Dim wb As Workbook

    Dim timeStamp As String
    Dim filePath As String
    Dim fileName As String
    filePath = ThisWorkbook.Path
    timeStamp = format(CStr(Now), "dd.mm.yy hh:mm")
    fileName = "Test - " & Worksheets("MainTab").Range("E4").Text & " - " & timeStamp

    wb.SaveAs fileName:=filePath & "\" & fileName & ".xlsx", ReadOnlyRecommended:=True

Many thanks!

Hi Frennzyy

You can't have filenames with a colon ":" character in it.
Change it to a space or a dash character.
How about
timeStamp = format(Now, "dd-mm-yy hh-mm")
fileName = "Test - " & Worksheets("MainTab").Range("E4").Text & "@" & timestamp

zeddy

Hi zeddy, thanks for the reply.
Please note that I did as you said but now I'm getting "Compile error: Wrong number of arguments or invalid property assignment" on 'format'.

Thanks!

this format works for me

wb2.SaveAs Filename:=MyDrive & ":\" & "MEMACCT" & Format(Now, "ddmmyyhhmmss") & ".xls", FileFormat:=56