Dear offthelip,
The earlier suggestion did not work.
The later was fine.
It worked according to what I required. However, it is showing in decimals whereas I require whole numbers. I can just format the cells to show the nearest whole number but I would appreciate if you could eliminate the decimals.If (Seconds = 60) Then Cells(CurrentRow, CurrentColumn + 2).Value = Rnd * 9 Minutes = Minutes + 1 CurrentRow = CurrentRow + 1 Seconds = 0 End If
Again, thanking you for the great help.