vba looping if then else structure

[asdfasdf]

I'm doing a 'if then else' structure on vba - where i want the if then else function to work on every square - but i can't work out how to make it loop.

so at the moment I want to know if each cell says depreciation and my code is:


ActiveSheet.Cells(2, 1).Select
If ActiveCell = "depreciation" Then
ActiveCell.Interior.Color = vbBlue
Else
MsgBox "error in this cell"
End If
ActiveCell.Offset(1, 0).Select
End Sub

it all works fine except after the next cell is selected the if function doesn't work. Any ideas on how I need to loop this?

Thanks!

 

[Joe4]

You don't actually have any loop in there, so the code will never go back.

For a good write-up on loops with examples, check out this link:
http://www.exceltip.com/st/Using_Loops_in_VBA_in_Microsoft_Excel/628.html

 

[Norie]

Do you even need code, never mind a loop, for this?

It looks to me as though you could at least do the colouring part with straightforward conditional formatting.

 

[asdfasdf]

thanks that helps heaps.
I do need a loop and vba because my actual data set is more complicated and about 5000 cells in length and need to check for words every certain number of cells.