Save .xltm as .xlsm problem

[rjplante]

I have some code that launches when a cell is changed. The code breaks on the line below highlighted in red.

ActiveWorkbook.SaveAs Filename:=sFilename, FileFormat:=52

The error message reads: Run-time error '1004': The following solutions are listed: does folder exist? Is folder read only? Is name more than 218 characters? Make sure there are the following symbols are not in the name <>?[]:|or*.

None of these issues seem to apply unless I am missing something in the name formula. I don't know what the error is that I need to address.

Thanks for the help.

Robert

 'Specify directory
            sPath = "\\Ferrari\common\Product QC\BioPrep QC\PrepaCyte-CB\PrepaCyte-CB QC\510k Lot Testing\Bag 3 Cryobag testing\" & Format(Date, "yyyy") & "\"
            SetAttr sPath, vbNormal
            
            If Dir(sPath, vbDirectory) = "" Then
    
                MkDir sPath

                ChDir sPath
        
                'Define Name
                sFilename = sPath & Format(Sheets("QC5003.17 Cryobag Testing Main").Range("E3").Value, "mm-dd-yy") & " Cryobag Testing on Origen LOT " & Sheets("QC5003.17 Cryobag Testing Main").Range("L3").Value & " by " & Sheets("QC5003.17 Cryobag Testing Main").Range("E2").Value & ".xlsm"
                
                SetAttr sFilename, vbNormal
                
                ActiveWorkbook.SaveAs Filename:=sFilename, FileFormat:=52
   
                'Displays a message box indicating the filename that was used top save the file.
                    MsgBox ("File was saved with the following name:" & Format(Sheets("QC5003.17 Cryobag Testing Main").Range("E3").Value, "mm-dd-yy") & " Cryobag Testing on Origen LOT " & Sheets("QC5003.17 Cryobag Testing Main").Range("L3").Value & " by " & Sheets("QC5003.17 Cryobag Testing Main").Range("E2").Value & ".xlsm")
   
            Else
                'Check to see if file already exists
                If ActiveWorkbook.Name = sFilename Then
                    ActiveWorkbook.Save
                    Exit Sub
                Else
                    ActiveWorkbook.SaveAs Filename:=sFilename, FileFormat:=52
                
 MsgBox ("File was saved with the following name:" & Format(Sheets("QC5003.17 Cryobag Testing Main").Range("E3").Value, "mm-dd-yy") & " Cryobag Testing on Origen LOT " & Sheets("QC5003.17 Cryobag Testing Main").Range("L3").Value & " by " & Sheets("QC5003.17 Cryobag Testing Main").Range("E2").Value & ".xlsm")

 

[Smitty]

If you Debug.Print sFilename what do you get?

 

[rjplante]

Other than step into, run to cursor, add watch, quick watch, toggle break point, and remove break point, I cannot do anything to debug the code. Compile is not a viable selection. When I step into the macro, it flags on the same line.

At a loss.

Robert

 

[Smitty]

Put "Debug.Print sFilename" in the code right after you set sFilename, then step through to that point. When you get past it the sFilename string will be written to the Immediate Window where you can check and see if it passes muster as a valid string.

 

[rjplante]

I moved a couple of things around and now it is working. Thanks for the help.

Robert