Given FIND ia at activecell:

Dim rng as range
Set rng = ActiveCell.Offset(4, 1).Resize(24, 2)
MsgBox rng.Address
Rng.copy .....

24 rows, 2 columns from B45 will be B45:C68 not B45:C69

HTH

"drucey" wrote:


Lovely people,

I'm having trouble using VBA to move activecell.

For example, i'm using a search macro to find a keyword on my
worksheet, and then i want it to:

Activecell to go down 4 rows, and right 1 column. (ie. from A41 to B45
(but can't use cells as they will change))
Select an area 24 rows down, and 2 columns across (ie. B45:C69) and
copy it onto the clip board.

I think i could do the rest now..

Any help would be very appreciated, thank you!


--
drucey
------------------------------------------------------------------------
drucey's Profile: http://www.excelforum.com/member.php...o&userid=32553
View this thread: http://www.excelforum.com/showthread...hreadid=534493