Add certain naming convention

Hi,

I have some code to export a tab from my workbook and save it to the same location as the workbook from where the macro is run, along with the same name but it includes a date and time stamp. What need is to be able to add "CONS" to the start of the filename? I keep getting errors though?!?!?

Code below

    d = InStrRev(thisWb.FullName, ".")
    With Destwb
        .SaveAs Filename:=Left(thisWb.FullName, d - 1) & Format(Now, "_dd_mm_yyyy_hhmmss") & FileExtStr, FileFormat:=FileFormatNum, ReadOnlyRecommended:=True
         End With

Many thanks!!

I'm getting the run-time error '1004' with that code.