Solved: How can I prevent Button Double clicks?

[frank_m]

I need some code that I can add to all of my forms type sheet buttons, that will prevent quick multiple clicks from running the routine multiple times. Possibly a timer if necessary, that will require waiting at least one or two seconds before clicking again. – Something simple, short and sweet, and generic, so that I can use it for most code situations within the button’s assigned macro.

For testing purposes I've attached a sample workbook that has the simplistic macro example shown below, assigned to a button.

Thanks
[vba]
Sub Macro1()
With ActiveCell
With .Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
.Offset(1, 0).Select
End With
End Sub

[/vba]

[frank_m]

bump...

hope you don't mind. I'm just am little desperate as I have one procedure for an app. currently in use at my work, that falls down big time if the code runs twice in quick succession by accidentally double clicking the button.

Thanks

[nilem]

Maybe something like this
[vba]Sub Macro1()
Dim shp As Shape
Set shp = ActiveSheet.Shapes(1)
shp.Visible = msoFalse

With ActiveCell
.Interior.ColorIndex = 6
.Offset(1).Select
End With

' here your procedure is working
shp.Visible = msoTrue 'this line is inserted at the end of your procedure
End Sub[/vba]

[frank_m]

HI nilem,

Nice thinking.. Works well.

Thanks