gemme flere steder samtidig

Kan du ikke gøre sådan:

Sub Gem
    ActiveWorkbook.SaveAs Filename:="C:\Mappe2.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
   
    ActiveWorkbook.SaveAs Filename:="D:\Mappe2.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub

Lidt mere valgfrihed på denne måde:

Sub GemToSteder()
Dim strFilNavn As String
Dim strHdMappe As String
Dim strUsbMappe As String

strHdMappe = "D:\test\"
strUsbMappe = "E:\test\"

strFilNavn = InputBox("Gem regneark som: ", "Gem fil på HD og USD-drev", ActiveWorkbook.Name)

    ActiveWorkbook.SaveAs Filename:=strHdMappe & strFilNavn
    ActiveWorkbook.SaveAs Filename:=strUsbMappe & strFilNavn ' Aktiv efter gem

End Sub

Og vær opmærksom på når du har gemt på denne måde, at det aktive regneark er det som står sidst, se bem. ovenfor.

øh - hvor skal de formler sættes ind?
Kan det gøres med en makro - eller er det måske en makro I har lavet til mig?

brynil læg et svar.