Find word and copy

D

Duncan_J

Didn't save my macro list since the reset, so I have to rebuild it.
I want to find the word grand total and copy 8 columns across and 10 rows
down
Thanks,
DJ
 
C

Charles

DJ

Here is somthing I came up with.

Sub mysub()
Dim firstrng
Dim secondrng
Cells.Find(What:="grand total", After:=ActiveCell, LookIn:=xlFormulas
LookAt _
:=xlPart).Activate
firstrng = (ActiveCell.Address)
secondrng = (ActiveCell.Offset(10, 7).Address)
Range(firstrng & ":" & secondrng).Copy
End Sub

HTH

Charle
 
Top