Loop

[Himszy]

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

 

[Guest]

Try this

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

 

[Jim May]

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