File name format syntax

[x080790]

Hi
Can someone tell me what should the syntax be for the code below.
It works fine for what I need but extension is not all that should be changed.
The Macros also gets saved. See the arrow.Thanks in advance.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim awb As Workbook, BackupFileName As String, i As Integer, OK As Boolean
If TypeName(ActiveWorkbook) = "Nothing" Then Exit Sub
Set awb = ActiveWorkbook
If awb.path = "" Then
Application.Dialogs(xlDialogSaveAs).Show
Else
BackupFileName = awb.FullName
i = 0
While InStr(i + 1, BackupFileName, ".") > 0
i = InStr(i + 1, BackupFileName, ".")
Wend
If i > 0 Then BackupFileName = Left(BackupFileName, i - 1)
'BackupFileName = BackupFileName & ".bak"
BackupFileName = BackupFileName & ".xls": FileFormatNum = 56 '<--------------

OK = False
On Error GoTo NotAbleToSave
With awb
Application.StatusBar = "Saving this workbook..."
.Save
Application.StatusBar = "Saving this workbook backup..."
.SaveCopyAs BackupFileName
OK = True
End With
End If
NotAbleToSave:
Set awb = Nothing
Application.StatusBar = False
If Not OK Then
MsgBox "Backup Copy Not Saved!", vbExclamation, ThisWorkbook.Name
End If
End Sub

 

[venkat1926]

"BackupFileName = awb.FullName"
fullname is path, filename and .xls
use instead
BackupFileName = awb.Name