aledger

Might be just as easy to DataAutofilter for Vice President on Column C then
F5SpecialVisble Cells OnlyOK

Copy to next sheet.

Anyway.......macro as requested.

Sub Copy_Rows()
Dim RngCol As Range
Dim i As Range
Set RngCol = Range("C1", Range("C" & Rows.Count). _
End(xlUp).Address)
For Each i In RngCol
If i.Value = "Vice President" Then _
i.Rows.Copy Destination:=Sheets("Sheet2") _
.Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0)
Next i
End Sub


Gord

On Mon, 7 Mar 2005 10:53:09 -0800, "aledger"
wrote:

You will only see Vice President in column C throughout various rows.

"Gord Dibben" wrote:

Is it likely that more than one cell contains the string "Vice President"?

Is it likely that string would be part of a larger string in the cell(s)?


Gord Dibben Excel MVP

On Fri, 4 Mar 2005 13:29:02 -0800, "aledger"
wrote:

If a cell contains the word Vice President I would like to copy the entire
row it sits on to the next worksheet. Is there a way to do this as a macro or
formula without using autofilter and copying the row manually?