new worksheet-Collection of common programming errors

Code Snippet

Sub MoveMax()

    Dim iter As Integer, place As Integer    Dim MyCell    Dim MyArray()    Dim OldSheet As Worksheet    Dim NewSheet As Worksheet        iter = 1    place = 1

    OldSheet = ActiveSheet
    ‘NewSheet = *create new worksheet at end of active workbook*
   

    Do While Not IsEmpty(OldSheet.Range(“A” & iter))

        MyCell = OldSheet.Range(“M” & iter)   

        If MyCell.Text = “x” And MyCell.BackColor = RGB(255, 255, 0) Then

                        MyArray = OldSheet.Range(“A” & iter & “:M” & iter)            NewSheet.Range(“A” & place & “:M” & iter) = MyArray

            Erase MyArray

            place = place + 1            

        End If

        iter = iter + 1    

    Loop

End Sub