Variable not working

[Phil]

Hi all,

I'm sure I've missed something very simple, but I can't get this bit
of code to work - the result keeps coming up with #NAME!

I have installed the analysis toolpack and RANDBETWEEN works fine as a
formula.

However, the code works fine if I just have the code enter strInput
into a cell - but fails when I enter it into the formula.


Sub fred()
Dim strInput As String
strInput = InputBox("Input Number")
Range("I4").Select
ActiveCell.FormulaR1C1 = "=RANDBETWEEN(1,strInput)"
End Sub

Can anyone help?
Many thanks in advance

Phil

 

[Guest]

You nearly had it, try this.

Sub fred()
Dim strInput As Integer
strInput = InputBox("Input Number")
Range("I4").Select
ActiveCell.FormulaR1C1 = "=RANDBETWEEN(1," & strInput & ")"

End Sub

Mike

 

[Phil]

You nearly had it, try this.

Sub fred()
Dim strInput As Integer
strInput = InputBox("Input Number")
Range("I4").Select
ActiveCell.FormulaR1C1 = "=RANDBETWEEN(1," & strInput & ")"

End Sub

Mike











- Show quoted text -

Mike, that's brilliant! Thanks a million

BTW - just about to post another one on the same lines, would
appreciate your help on that one too!

Cheers

Phil