I have a variable cell location I am finding using the following:

'Find 'Released' Header Row
Dim CrntF As Range
Set CrntF = Range("F49")

Do Until ActiveCell = "RELEASED"
On Error Resume Next

CrntF.Select
Set CrntF = ActiveCell.Offset(1, 0)
Loop

'Move down to 1st project, and over to Title
CrntF.Offset(1, 8).Select

This selects the correct starting cell, but I need to copy this cell & the
next 19 cells below it.

I hope this is simple. Thanks in advance for any help.

not sure what you want, but you can try this (untested)

CrntF.Offset(1, 8).resize(19).Select

--


Gary

"Chris T-M" wrote in message
...
I have a variable cell location I am finding using the following:

'Find 'Released' Header Row
Dim CrntF As Range
Set CrntF = Range("F49")

Do Until ActiveCell = "RELEASED"
On Error Resume Next

CrntF.Select
Set CrntF = ActiveCell.Offset(1, 0)
Loop

'Move down to 1st project, and over to Title
CrntF.Offset(1, 8).Select

This selects the correct starting cell, but I need to copy this cell & the
next 19 cells below it.

I hope this is simple. Thanks in advance for any help.

Try this version

Dim CrntF As Range

Set CrntF = Range("f49:f" & Rows.Count).Find(what:="RELEASED")
If Not CrntF Is Nothing Then
CrntF.Offset(2, 8).Resize(19).Select
End If


--
mudraker
------------------------------------------------------------------------
mudraker's Profile: http://www.thecodecage.com/forumz/member.php?userid=18
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=26432