Help with writing a simple range programme in VBA

Hi all

I'm trying to teach myself VBA and am trying to build a really simple programme which looks at a range of text data from cell A1 to cell E10, and if the text says 'fraud' then the cell will be highlighted a certain colour.
The code I have written is a mash up from various sources on the internet and I have no idea whether it's suitable or not. I keep getting the error "End if without Block If" which I understand to mean my 'If' instruction is not correct.

Here is my code, could someone please advise me?

Sub Test()
'
' Test Macro
'
Dim Rownumber As Integer
Dim rng As Range, cell As Range
Set rng = Range("A1:E10")

For Each cell In rng

If cell.Value = "Fraud" Then cell.Interior.ColorIndex = 60
End If
End Sub

Hi jembop, welcome to the forums. However, your post does not comply with the forum rules. Please take some time to read the rules.

You should change your thread title to something more descriptive of your problem, and use [code] [/code] tags around your code.

Welcome to the forum.

We would like to help you but first take a look to forum rules and specially in rules# 1 & 3.

Change your title, add code tags and then anyone would be able to help you.

Amended your code with some comments.

Sub Test()
'
' Test Macro
'
    Dim Rownumber As Integer
    Dim rng As Range, cell As Range
    Set rng = Range("A1:E10")
    
    For Each cell In rng
    
        If cell.Value = "Fraud" Then
            cell.Interior.ColorIndex = 60
        End If  'Since you have an End If statement, you need to match it to an If statement.
                'If you are using a single line If statement, End If is kind of "ignored", hence the error
            
    Next        'You also have a For loop, you need to indicate where is the "end" of the For loop
End Sub