Hi Howard,

Am Wed, 22 Jan 2014 19:02:28 -0800 (PST) schrieb L. Howard:

What is making this Cut snippet error?

try:
With ActiveWorkbook.Worksheets("Sheet1")
Set Grng = .Range("G1:G" & .Range("G" & Rows.Count).End(xlUp).Row)
For Each cG In Grng
If cG = "X" Then
cG.EntireRow.Cut _
Sheets("All Other").Range("A" & Rows.Count).End(xlUp)(2)
End If
Next
End With


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2