Code Without MessageBox

[dparteka]

Can someone tell me what the "Set UserAnswer" line would look like without the message box popup. I don't need the message box because the range is static... thank you

Sub GenerateRandBetweenUniqeIntegers()
Dim UserAnswer As Range

LowerInteger = "1"
UpperInteger = "100"

Set UserAnswer = Application.InputBox("Please, select a range with the mouse.", Default:="A1:J10", Type:=8)
   
  UserAnswer.Clear
  For Each cell In UserAnswer.Cells
    i = i + 1
    If WorksheetFunction.CountA(UserAnswer) = (UpperInteger - LowerInteger + 1) Then Exit For
    Do
      RandBetweenUniqeIntegers = Int((UpperInteger - LowerInteger + 1) * Rnd() + LowerInteger)
    Loop Until UserAnswer.Cells.Find(RandBetweenUniqeIntegers, LookIn:=xlValues, lookat:=xlWhole) Is Nothing
    cell.Value = RandBetweenUniqeIntegers
  Next

End Sub

 

[Hui]

Sub GenerateRandBetweenUniqeIntegers()
Dim UserAnswer As Range

LowerInteger = "1"
UpperInteger = "100"

Set UserAnswer = Range("A1:J10")
   
  UserAnswer.Clear
  For Each cell In UserAnswer.Cells
  i = i + 1
  If WorksheetFunction.CountA(UserAnswer) = (UpperInteger - LowerInteger + 1) Then Exit For
  Do
  RandBetweenUniqeIntegers = Int((UpperInteger - LowerInteger + 1) * Rnd() + LowerInteger)
  Loop Until UserAnswer.Cells.Find(RandBetweenUniqeIntegers, LookIn:=xlValues, lookat:=xlWhole) Is Nothing
  cell.Value = RandBetweenUniqeIntegers
  Next

End Sub

 

[dparteka]

Awesome... thanks Hui