Date button

[teamsimpson]

On top of my worksheet i have a title DATE,i type the date in manually next to it. I just wondered if there was a simple macro i could write which , on picking the DATE it would insert the current date.

 

[Andrew Poulsom]

Ctrl+; inserts the current date.

 

[teamsimpson]

Thanks for your help Andrew

 

[teamsimpson]

I must be thick, Andrew when i type in Ctrl+;
nothing happens, i even put an = infront.do you mean the Ctrl key, what should i type in to make it work ?

 

[Andrew Poulsom]

Hold down Ctrl and press the ; key. Ignore the +. That's just to indicate that you press both keys.

 

[teamsimpson]

Thanks, i took it literally what you wrote.
if i wanted a control button named DATE, so soon as it was pressed it wrote the current date in the adjacent right cell, whatmacro code should i write ?

 

[Andrew Poulsom]

Assuming your command button is from the Control Toolbox and it's named CommandButton1:

Private Sub CommandButton1_Click()
'   ** Change range address to suit **
    ActiveSheet.Range("A1").Value = Date
End Sub