I want to create a loop that will repeat on cells A1:A20. I've written the
if function for it I just need help on the loop. Any ideas?

Thanks Michael

Try this

dim R as integer
for R 1 to 20
with sheets("SheetName").cells(R,1)
function
end with
next

"Himszy" wrote:

I want to create a loop that will repeat on cells A1:A20. I've written the
if function for it I just need help on the loop. Any ideas?

Thanks Michael

Sub Tester()
Set rng = Range("A1:A20")
For Each c In rng
MsgBox "My Loop is currently at Cell address " & c.Address
'replace with whatever you want to do with each cell
Next c
End Sub

"Himszy" wrote in message
k...
I want to create a loop that will repeat on cells A1:A20. I've written the
if function for it I just need help on the loop. Any ideas?

Thanks Michael