Formula Dog

Sub GenerateRandomNumber()

  Dim randomNumber As Integer

  Randomize ' Initialize the random number generator

  ' Generate a random number between 1 and 10

  randomNumber = Int((10 * Rnd) + 1)

  ' Display the random number in a message box

  MsgBox "The random number is: " & randomNumber

End Sub