kopi af filer med filnavn fra liste

Prøv at teste denne her:
-----------------------------


Public Sub MultipleSaveAs()

Dim sti As String
Dim filnavn As String
Dim i As Integer
Dim navne As Range

Set navne = ActiveWorkbook.Sheets(1).Range("A1:A5")
sti = "C:\"

Application.DisplayAlerts = False

For Each n In navne
    filnavn = sti + CStr(n)
    ActiveWorkbook.SaveAs filnavn
Next

Application.DisplayAlerts = True

End Sub

---------------------------------

det ser umiddelbart ud til at virke, men hvad nu hvis man vil gemme i en specifik mappe og ikke bare på C:. Jeg har prøvet at skrive flere parametre bagved C:\ men det vil den ikke acceptere

Hilsen Sv@@ge

Du skal huske at afslutte stien med backslash tegnet "\"

f.eks:
sti = "C:\ExcelArkiv\"

Alternativt kan du skrive stien i f.eks. B1

sti = CStr([B1])

...hvor indholdet af B1 er f.eks:
C:\ExcelArkiv\

det virker nu fuldstændig som det skal point til blackadder

tak for hjælpen hilsen Sv@@ge

hej blackadder du bliver nødt til at afgive et svar i stedet for en kommentar hvis du vilhave points

hilsen Sv@@ge

Jeg smider lige et svar så...  :-)

du har hermed fået point