sounds good dominicb...

So I have the following code that I have been working with, It initially displayed the current time every 5 seconds in 4 descending cell rows.

I am trying to change the output to a number instead of time, and keep the value increase in the same cell (A2) and have the value increase by 1 in each of the 5 second intervals. 


            ' Module level declaration of icount, inumberofcalls. This line
      ' must be at the top of the module sheet
      Dim icount As Integer, inumberofcalls As Integer

      Sub StartOnTime()

          ' Initialize icount to 1.
          icount = 1

          ' Initialize inumberofcalls to 4.
          inumberofcalls = 4

          ' Select the range of cells for formatting.
          Range("A1" & inumberofcalls + 1).Select

          ' Format the selected cells as time.
          ' Selection.NumberFormat = "1"

          ' Start in cell A1.
          Range("A1").Select

          ' Put the word "Time" in cell A1.
          ActiveCell.Value = "Time"

          ' Start the OnTimeMacro.
          Call OnTimeMacro

      End Sub

      Sub OnTimeMacro()

          ' Run the RunEvery5seconds macro inumberofcalls times.
          If icount <= inumberofcalls Then

              ' Run the RunEvery5seconds macro in 5 seconds.
              Application.OnTime Now + TimeValue("00:00:05"), _
                  "RunEvery5seconds"

              ' Increment icount by 1.
              icount = icount + 1

          Else

              ' Icount is greater than inumberofcalls, so exit the macro.
              Exit Sub

          End If

      End Sub

      Sub RunEvery5seconds()

          ' Places the current time in a cell.
          ActiveCell.Offset(icount - 1, 0).Value = Format(Now(), _
              "hh:mm:ss")

          ' Runs the OnTimeMacro again.
          Call OnTimeMacro

      End Sub