Here is one I use to save to a backup folder in the same folder. Modify to
suit.
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

"Chris_7_1" wrote in message
...
I would like to save the file on my HD and also to my Pocket PC folder for
synching. Do-able?