Thanks for previous reply and help!
I now would like to design a micro to paste 3 consecutive cells based on
a word found in the first of the cells.
I figure I can use the Find function (Ctrl+F) on a spreadsheet to find
the word. How then could I select the cell that contains the word and
copy the cells and the two cells next to it.
I know I should put the Find function and related detail in a loop.
Here is what I have so far. Could you check for me and help me to
program the rest.
Sheets("MET23").Select
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Sheets("").Select
Cells.Find(What:="MET", After:=ActiveCell, LookIn:=xlValues,
LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
).Activate
Cells.FindNext(After:=ActiveCell).Activate
Range(????).Select
Selection.Copy
Sheets("MET32").Select
Loop
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!