Something like this maybe...

Sub CopyDataToSheet1()
Dim R As Long
Dim C As Range
Dim SH As Variant
R = 2 'start row in Sheet1
For Each SH In Array(Worksheets("Sheet2"), Worksheets("Sheet3"))
For Each C In SH.Range("A1:A5")
If C.Value < "" Then
Worksheets("Sheet1").Cells(R, "A").Value = C.Value
R = R + 1
End If
Next
Next
End Sub

Rick


"kevin026" wrote in message
...
Hi,

I need help with code that will search a list for cells with text in A1:A5
in sheet 2 and 3, and any text that exists will be listed in a column in
sheet 1.

what should I do?

thanks!