Deleting content in cells based on criteria

Hi,

If I have a range..say A2:A200, how would I write a macro that does the following

If the value of the cell in the defined range does not equal 0, 1 or 2
Delete the contents of the cell

If the cell = 0 in the defined range, allign left
If the cell = 1 in the defined range, allign center
If the cell = 2 in the defined range, allign right


I'm sure it's much easier then I think it is...any help would be greatly appreciated.

Try this:

Sub x()

Dim rng As Range

For Each rng In Range("A2:A200")
    Select Case rng
        Case 0: rng.HorizontalAlignment = xlLeft
        Case 1: rng.HorizontalAlignment = xlCenter
        Case 2: rng.HorizontalAlignment = xlRight
        Case Else: rng.Clear
    End Select
Next rng

End Sub

perfect! thank you