Here is one I use to backup to the current directory\backup

Sub Backup() 'kept in personal.xls & assigned to toolbar button
On Error GoTo BackupFile
MkDir CurDir & "\Backup"
BackupFile:
With ActiveWorkbook
MyWB = .Path & "\BACKUP\" & .Name
.SaveCopyAs MyWB
.Save
End With
End Sub

--
Don Guillett
SalesAid Software

"mekraj" wrote in message
...
When i am saving a file by selecting "Always create backup", backup file
is
saved in the same folder, how do i save this backup file in a different
folder. - Microsoft Excel 2000