Simple If Else in vba program Had Method Range Global failed error

[asar90]

Sub Nationality()

Dim rng As Range
Dim cell As Variant

lRow = Range("R" & Rows.Count).End(xlUp).Row

Set rng = Range("R2:R500" & lRow)

For Each cell In rng

If Cells(i, "R").Value <> "UK" Then
Cells(i, "R").Interior.ColorIndex = 3
End If
Next

I'm New to excel vba,
It seems to be simple any help thanks in advance

 

[circledchicken]

Hi and welcome to the forum,

Try the following setup instead:

Sub Nationality()


    Dim rng     As Range
    Dim cell    As Range
    Dim lRow    As Long


    lRow = Range("R" & Rows.Count).End(xlUp).Row
    Set rng = Range("R2:R" & lRow)
    
    For Each cell In rng
        If cell.Value <> "UK" Then
            cell.Interior.ColorIndex = 3
        End If
    Next


End Sub

Note, although this was a simple example, in future posts it will be easier if you include more detail describing what line the error was on, as well as an in-words description of what you were trying to achieve.

 

[asar90]

Superb!It Works Cool!!

Thanks a lot dude

 

[circledchicken]

You're welcome - thanks for the feedback.