Copying and Looping

[Toonloon]

Hi All,

I have Sheet1 and Sheet2

I have a list of numbers on Sheet2

I want to be able to create a macro that will
1. copy the 1st number on the list in Sheet2
2. paste it to cell D3 on Sheet1
3. print sheet1
4. copy the 2nd number on the list on Sheet2
5. paste it to cell D3 on Sheet1
5. print sheet1
Continue looping through that process until the end of the list is reached on Sheet2

anybody have any ideas ?

Thanks in advance

 

[VoG]

Try

Sub test()
Dim LR As Long, i As Long
With Sheets("Sheet2")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        .Range("A" & i).Copy Destination:=Sheets("Sheet1").Range("D3")
        Sheets("Sheet1").PrintOut
    Next i
End With
End Sub

 

[Toonloon]

UNBELIEVABLE!!!!

Perfection....

Thank you sooo much