Mike Burek: Excel Delete Marked Row

Saturday, August 2, 2008

Excel Delete Marked Row


Sub DelMarkedRow()
    While ActiveCell.Row > 1
        If ActiveCell.Value = "`" Then
            ActiveCell.EntireRow.Delete
        End If
        ActiveCell.Offset(-1, 0).Activate
    Wend
    If (ActiveCell.Row = 1) And (ActiveCell.Value = "`") Then
        ActiveCell.EntireRow.Delete
    End If
End Sub

No comments:

Subscribe to: Post Comments (Atom)