'Save as' variable file format routine query

[nigelandrewfoster]

The following code stops at the red line with "Method 'SaveAs' of object '_Workbook' failed. Does anyone know why?
FF="xlCSV". It works fine if I replace

FileFormat:=FF

with

FileFormat:=xlCSV

. Thanks.

Sub SaveIt(FileNm, FF)
    Dim FSO As Object, a
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.FileExists(FileNm) Then FSO.DeleteFile FileNm
    If FSO.FileExists(FileNm) Then
        a = MsgBox(FileNm & " already exists, and cannot be deleted." & vbCr & vbCr & "Contact support on 0xxxxxxxxxx1", _
            vbCritical, "ERROR - FILE EXISTS")
        Exit Sub
    End If
[COLOR="Red"]    ActiveWorkbook.SaveAs Filename:=FileNm, FileFormat:=FF[/COLOR]
End Sub

 

[baitmaster]

set FF = 6 instead

xlCSV is predefined to be 6. You are replacing xlCSV (a constant) with "xlCSV" (a string)

 

[nigelandrewfoster]

Brilliant. Cheers for that! Should have realised.
Regards,
Nigel