Variable Macro

[Ronbo]

Trying again, I am looking for a way to create a variable
macro or a macro that contains a variable. I want the
macro to acquire a variable number (X) and then run a
macro X times. Ex - Macro "Print" 'print Hello and move
down one cell; cell a1 = 3 (the variable #), so the new
macro would = run "Print 3 times" =
Hello
Hello
Hello

Thanks to those who have helped before and to any
additional help.

 

[Tom Ogilvy]

Sub MyPrint()
ActiveCell.Value = "Print"
ActiveCell.Offset(1,0)
End Sub

sub ValueMacro()
Dim x as Variant
Range("A1").Value = 3
x = Range("A1").Value
if not isnumeric(x) then exit sub
range("C3").Select
for i = 1 to x
MyPrint
Next
End Sub

 

[Guest]

-----Original Message-----
Sub MyPrint()
ActiveCell.Value = "Print"
ActiveCell.Offset(1,0)
End Sub

sub ValueMacro()
Dim x as Variant
Range("A1").Value = 3
x = Range("A1").Value
if not isnumeric(x) then exit sub
range("C3").Select
for i = 1 to x
MyPrint
Next
End Sub


--
Regards,
Tom Ogilvy





.

Thanks a lot. With a little tweaking it works perfect.