Macro that disables itself one executed? HELP please

[Caveman1964]

Hi,
I would like to run a macro, and it disables itself when ran.

here is code.
Sub enterstopdown()
Range("D6").Value = Now()
End Sub

so when they click this and it enters the date and time, I don't want that one to work anymore.
Thanks!

 

[The Gunslinger]

is the macro called from a button or other object ? if so, then before the end sub, you could disable the object, so they can't click it again


If it is called from within a Worksheet.SelectionChange Event then i guess you could check to see if there is a value in the cell before proceeding to enter the date time

 

[JLGWhiz]

How about

Sub enterstopdown()
If Range("D6") <> "" Then Exit Sub
 Range("D6").Value = Now()
 End Sub

If there is already something in D6 the code will not execute.

 

[Caveman1964]

Ah I see that will work.
Also, if you have time, could that one macro button select the next one down and Enter date time?
Thanks for the time!

 

[Caveman1964]

It is called from an object.....so great, I will try that! thanks!

 

[Caveman1964]

How about

Sub enterstopdown()
If Range("D6") <> "" Then Exit Sub
 Range("D6").Value = Now()
 End Sub

If there is already something in D6 the code will not execute.

Yes this works perfect! thanks