Excel: Do untill command


Hello all, I have a macro that looks in A and finds a name, then finds a word of text in a cell the copies information. I would like it to keep finding the word cells until it reaches another word cell: Example:

Cells.Find(What:="Bob", After:=ActiveCell).Activate
Cells.Find(What:="Inbound", After:=ActiveCell).Activate
ActiveCell.Offset(0, 2).Range("A1").Copy
ActiveCell.Offset(0, 16).Range("A1").Select
ActiveSheet.Paste
***this ia where i want it to go to***
do this command above until it finds the word 'Wrokgroup' in a cell then next command (person)
Can anyone help? Adrac


This question generated 27 answers. To proceed to the answers, click here.

This thread is current as of April 07, 2014.


For more resources for Microsoft Excel