Try to adapt this code
Sub findinList()
Dim c As Range, s As Long
Range("A1:A65536").Select
Set c = Selection.Find("Perform")
'Do your thing
'Find a way to process next value
End Sub

" wrote:

HI again group,

I am almost breaking my head to successfully write a macro for what I
am trying to accomplish...

1. Look in range A1:A65536.
2. IF any cell value in range A1:A65536 starts with the word
"perform", THEN FIND that cell and copy it and the next 276 values and
paste in the adjacent columns..

Example:
Assuming cell A6 has the word "performance 1", cell A400 has the word
"performance 2" and cell A878 has the word "perform23", then, copy
cells A6 thru A281 (interval - 276) and paste in cell B1.
Copy cell A400 thru A675 (interval - 276) and paste in cell C1.
Copy cell 878 thru 1153 (interval - 276) and paste in cell D1.
etc...

Any help would be greatly helpful.. I am really blowing my mind here
to get this working.

Kevin