Macro to run only once

Hello,

I made a small macro that runs off a command button, which the user needs to press only once when they've completed using the sheet.

The macro edits some columns and removes things that aren't required.

But if the user accidentally clicks the button more than once it repeats the process, removing information that needs to be kept. Is there something that can be added to the macros code that would only allow it to be pressed once?

Cheers,

Weasel.

Sorry struggling to apply the above code

I've added it to my macro like this:

Private Sub CommandButton1_Click()
Public Only1 As Boolean
Sub Run1x()

If Only1 = False Then
Only1 = True
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L:L,G:G").Select
Range("G1").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("F5").Select
End If

End Sub

But it's not working - can you show me where i'm going wrong?

Thanks again

Sorry struggling to apply the above code

I've added it to my macro like this:

Private Sub CommandButton1_Click()
Public Only1 As Boolean
Sub Run1x()

If Only1 = False Then
Only1 = True
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L:L,G:G").Select
Range("G1").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("F5").Select
End If

End Sub

But it's not working - can you show me where i'm going wrong?

Thanks again

I must be doing something wrong

Copied the above two sets of code over my existing & tried to run it - it says:

Compile error:

End If without block if

Can you show me what i've missed?

Thanks

That's perfect - thanks for your patience