Already have a spreadsheet ("Sheet1") that will display the bingo numbers at random when a button is clicked. There are two buttons ("Next Number" to display the next number and "New Game" to clear the board) that work just fine. I have tried to add a box that would "countdown from 10 seconds." Would like to create such a box that would (1)- cause no error when it get to "zero" and (2) would restart the "countdown" when the next number is displayed. How hard would it be to make this into an "automatic" program? Know there are commercial programs out there - but they have too many bells and info displayed. Any help would be appreciated!
Here are the two button marcos.

Private Sub btnDraw_Click()

Dim linenumber As Integer, numpick As Integer
Dim bingonum As String

linenumber = Range("E1").Value
numpick = Range("B" & linenumber).Value
Range("B" & linenumber).ClearContents

If numpick > 60 Then
bingonum = "O " & numpick
ElseIf numpick > 45 Then
bingonum = "G " & numpick
ElseIf numpick > 30 Then
bingonum = "N " & numpick
ElseIf numpick > 15 Then
bingonum = "I " & numpick
Else
bingonum = "B " & numpick
End If

Range("M8").Value = bingonum

End Sub




Private Sub btnReset_Click()

Dim linenumber As Integer
linenumber = 1

Do

Range("B" & linenumber).Value = Range("A" & linenumber).Value

linenumber = linenumber + 1
Loop Until Range("A" & linenumber).Value = ""

Range("M8").ClearContents

End Sub