Okay, I am stuck again.

I am tring to write a loop that goes through a selected area of a spreadsheet looking for a specified value. then once the specified value is located, I want it to copy the record and insert it into a different spreadsheet. My lowly intelect has me stuck on ....

1) How to make it loop through the cells

2)how to get the darn Select case statement to work.


I did the case statememt first based on one cell, and it doesn't seem to be recognizing it. (LastCol was determined earlier in the code) I only used A2 to see if I could get the code to select that specified row.

Dim CellAge as Integer

Select Case CellAge
Case Is = 0
MsgBox ("Value of CellAge is" & CellAge)
ActiveSheet.Range("a2:" & LastCol).Address.Select
Case Is = 1
MsgBox ("Value of CellAge is" & CellAge)
End Select

Thanks,

Swoozie