Try this...

public sub AddTimeStamp()
activesheet.range("A1").value = now()
end sub

--
HTH...

Jim Thomlinson


"wildauk" wrote:

Hi, I need a code for a button so when I press it the time is shown in say
cell A1 and it will not change untill I press the button agian.

Thank's inadvance, Barry.