Excel and Macros

[boku]

Im trying to use:

Sub highlite()
 
    If Range("V" & Int(Rnd * "10000")).Select Then
    Rows(Int(Rnd * "10000") & ":" & Int(Rnd * "10000")).Select
    Range("F" & Int(Rnd * "10000")).Activate
    With Selection.Interior
        .ColorIndex = 39
        .Pattern = xlSolid
    End With
    End If
    
End Sub

in excel, to highlight a whole row, if i click on a cell in that row, then if I click on another row, it de-highlits back to how it was originally and highlights the new row! what am I ding wrong and is there a solution?