Need help guys...

[Frozo]

Hi guys
have a bunch of inserts and save ases that may take ages till ended

I need a Macro that inserts a Value "n" from a list in "sheet2" to a cell in "sheet1" and then saves a filename as this value "n" then proceeds to a next value in the column list in "sheet2" and stops as the list ends
thanks in advance..!

 

[VoG]

Maybe something like this

Sub frozo()
Dim LR As Long, i As Long
With Sheets("Sheet2")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        With .Range("A" & i)
            Sheets("Sheet1").Range("A1").Value = .Value
            ActiveWorkbook.SaveAs Filename:=.Value & ".xls"
        End With
    Next i
End With
End Sub

 

[Frozo]

Hiii

I'll try it at home as am leaving now, But anyway thanks for ur speedy reply..!!

 

[Frozo]

Well, the filename list is a column not a row, so I think u ve done it for a row list
and I donno why I got a 1004 runtime error and then 13 runtime error

 

[Frozo]

Thaaaaaaaaaaaaanks a lot VOG...!!

Sub frozo()
Dim LR As Long, i As Long
With Sheets("Sheet2")
LR = .Range("A" & Rows.Count).End(xlUp).Row
For i = 4 To LR
With .Range("A" & i)
Sheets("Sheet1").Range("B3").Value = .Value
ActiveWorkbook.SaveAs Filename:="C:\Mohamed Docs\" & .Value & ".xls"
End With
Next i
End With
End Sub



it's working