In the phrase:
If Target.Column = 3
you would need to change the "3" to whatever column number you want. Otto
"Very Basic User" wrote in message
...
Would I replace your word "Value" with tha actual column # and or cell?
--
Thank you for your time!
John


"Otto Moehrbach" wrote:

Right-click on the sheet "In Progress" tab, select View Code and paste
this
macro into that module. "X" out of the module to return to your sheet.
As
written, this macro reacts if the word "Complete" is entered into any
cell
in Column C (column number 3). In that case, the first 10 columns of
that
row are copied to the first blank row of the "Complete" sheet. The
original
row in the "In Progress" sheet is then deleted. Come back if you need
more.
Otto
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Dest As Range
If Target.Count 1 Then Exit Sub
If IsEmpty(Target.Value) Then Exit Sub
If Target.Column = 3 And Target.Value = "Complete" Then
With Sheets("Complete")
Set Dest = .Range("A" & Rows.Count).End(xlUp).Offset(1)
End With
Range(Cells(Target.Row, 1), Cells(Target.Row, 10)).Copy Dest
Target.EntireRow.Delete
End If
End Sub

"Very Basic User" wrote in
message
...
I have an excel sheet that is used to collect items that need follow up
on
issues. In the sheet, I have one cell that is titles "Status" What I
would
like to have happen is... IF I mark status as complete, the entire row
of
information is removed form the "In progress" tab and put into the
"Complete"
tab of the worksheet. It would have to cut, paste, and delete the old
row.

Any help would be appreciated!
--
Thank you for your time!
John