Microsoft Office Forums - View Single Post - Randbetween function embedded in a macro HELP

Purfleet · 02-21-2021, 01:51 AM

Try something like this

Code:

Sub Randomly_generate_a_number_between_1_and_10_inclusive()
'
' Macro1 Macro

    Range("b:b").Interior.Color = xlNone
    
    randnum = WorksheetFunction.RandBetween(1, 10)
'
    Range("D2") = randnum
    
    Range("A:A").Find(what:=randnum, LookIn:=xlValues, lookat:=xlWhole).Offset(0, 1).Interior.Color = vbYellow
       
    
End Sub