Looping X number

[hatstand]

Hi, I am trying to get the code below to loop down X number of times. With maxi being a dynamic range name. It copies down cell A2 and adds 1 each time. But to the length maxi declares. If i use a number it works but not if I declare it.

Can someone tell me what I'm doing wrong please.

Sub for_demo()

Dim Add1 As Integer
Dim maxi As Variant

For Add1 = 1 To maxi Step 1

ActiveCell.Value = Range("A2").Value + 1
ActiveCell.Offset(1, 0).Select

Next

End Sub

 

[Trebor76]

Sorry hatstand, I thought "maxi" was a named range.

Luckily there's plenty of other clever solutions offered

 

[hatstand]

Thanks. Trebor. I'm still stuck with the problem. The help has been great and much appreciated. but I still can't understand why I can't use a dynamic range to decide how many times to loop.

I guess I'll have to try another approach. Thanks for everyones help.

 

[mirabeau]

Hatstand,

Did you try code in post#10?

Did it do as you have requested?

If not, what problem did you have with it? e.g. wrong result, error message, failed to do anything at all, other ???

Providing useful feedback is likely to be helpful to everyone, including yourself.

 

[hatstand]

What I figured out is that dynamic range values would or can't be picked up as the variable. So I used:
For Add1 = 1 To Range("Count").Value Step 1
Then simply put an =counta() in the sheet with the range to be counted.

I would imagine all of the replies would have worked, but my VBA knowledge is brilliant so couldn't get them to work.

I really appreciate the time and help offered. Thanks.