Sub Button1()
'
' Button1 Macro
'
' Sheets("Sheet2").Select
Range("C3").Select
ActiveCell.Value = Now()
Sheets("Sheet1").Select

Me.Button1.Enabled=False

End Sub