rossmac2 wrote:

Does anyone know how to do the above? Or have a piece of visual basic code
that i could adapt to do this?

Where are the button? On plan or in a Form?
Somehow or other try:

Private Sub CommandButton1_Click()
Range("A1").Value = Time
End Sub

Cheers,