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

--
Message posted from http://www.ExcelForum.com