If / ElseIf within For Each?

[pwells]

Hey guys, I'm looking to put a few if/elseif conditions within a for each loop. Is this possible/ any suggestions as to how I can get it to work?

Sub rating()

Dim terr As Integer

For Each mycell In Sheets("Orig File").Range("p8:p999999")
    If mycell.Value = "a" Then
        mycell.Value = 1
    ElseIf mycell.Value = "b" Then
        mycell.Value = 2

Next mycell

End sub

Thanks for the help!

[AB33]

Sub test1()

Dim terr As Long, mycell As Range

For Each mycell In Sheets("Orig File").Range("p8:p999999")
    If mycell.Value = "a" Then
        mycell.Value = 1
    ElseIf mycell.Value = "b" Then
        mycell.Value = 2
        
    End If

Next mycell

End Sub

[pwells]

Awesome thank you! But I keep getting a runtime error '9'

[AB33]

If it is on this line

For Each mycell In Sheets("Orig File").Range("p8:p999999")

You do not have a sheet name "Orig File". Make sure you have the name on sheet collection and spelling is correct.

[pwells]

Ahh okay that fixed it, thank you!