How about a macro that saves the file twice.
This is a skeleton code that save a word document to two locations - the removable first then the fixed drive.
It asks for a filename, uses the existing file extension, or if none, a default .doc
The two paths are hardcoded.
There are lots of possibilities such as adding a file finder dialog box for the second save after saving the first time to a memory stick.
If the file had already been saved, you could just do the two saves using the existing filename.
The code only needs limited change for use in Excel - change ActiveDocument to ActiveWorkbook and .doc to .xls (although I haven't tried it out in Excel).
Dim strFN As String
Dim strFX As String
Dim strL1 As String
Dim strL2 As String
'setup two locations - ending with /
strL1 = "H:/"
strL2 = "C:/Temp/"
'get filename from user
strFN = InputBox("Enter file name without extension", "Save to Stick and HDD")
'check for no file extension
If InStr(1, strFX, ".") > 0 Then
strFX = Left(strFX, InStr(1, strFX, "."))
'get existing filename and extract file extension
strFX = ActiveDocument.Name
'test for file extension on current document
If InStr(1, strFX, ".") = 0 Then
'none so use a default
strFX = ".doc"
strFX = Right(strFX, Len(strFX) - InStr(1, strFX, ".") + 1)
'create the filename
strFN = strFN & strFX
'save to stick first
ActiveDocument.SaveAs FileName:=strL1 & strFN
'save to HDD second
ActiveDocument.SaveAs FileName:=strL2 & strFN
There is no error checking in this as its just an outline