Hi,

I need a fresh pair of eyes so hopefully someone can help....

I have a list of data and what I want to do is copy the values in coloumn A
pasting them in cell D4 (other actions area then performed). I have been
trying to use the active cell method but the problem I have is that when I
paste the value in D4 this then becomes the active cell......

Is there any way to right the value of Active cell to a varianble and the
call that variable after pasting?
Or would I be better off trying to use numbers to reference the cells.....

I've tried both approaches and have used the following code without much
success....Any suggestions..

Using the ActiveCell method...............

Sub CycleList()
Dim Cellstore As Integer
Dim lRow As Long

'error trap
On Error GoTo Etrap

Worksheets("CODES").Range("A6").Activate

Do While IsEmpty(ActiveCell.Offset(0, 1)) = False

ActiveCell.Select
Selection.Copy
Cellstore = ActiveCell.Address
Range("D2").Select
ActiveSheet.Paste
Range(ActiveCell.Address).Select

Loop

Etrap:

Beep

Exit Sub

End Sub


Using the Number method...............

Sub CycleListNumeric()
'error trap
On Error GoTo Etrap

Number = 6
Do
Range("A,Number").Select
Selection.Copy
Range(D4).Select
ActiveSheet.Paste
Number = Number + 1
Loop Until Number = 15

Etrap:

Beep

Exit Sub

End Sub

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200704/1