Adding 2 ActiveX buttons throws errors ?

[gray_b]

Adding 2 ActiveX buttons throws errors ? Any ideas on the below images, and the error message please.

In changing the code in Macro1 to just show the Msg box. Selecting 'Clear Data' button (commandbutton1) It works OK. The 2 buttons follow where I curser click on screen.

But in changing that code to just 2 line of clearing data, I get this error shown in first image.

 

[Georgiboy]

Try changing your Macro1 sub to:

Sub Macro1()
    Application.EnableEvents = False
    Range("A:F").EntireColumn.ClearContents
    Application.EnableEvents = True
End Sub

The above will stop the clearcontents code from firing the below selection change code.

With your selection change code:
You can make it so that the code will only fire if one cell is selected:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
   
    'Your code here
End Sub

Taking that further you can restrict the running of the code to only one cell AND only if within a specific range:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
   
    If Not Intersect(Target, Range("A1:A22")) Is Nothing Then
        'Your code here
    End If
End Sub

 

[gray_b]

Hi - I have incorporated your code snippets 1 and 2, and all is working OK.

I do not pretend to understand the coding for it. I must read up about it.

My next step is to try and add a 'text box' with some information on how to gather the data from another program, before pasting them here.
I have tried activeX 'label' and 'text', but neither are any good at showing just 4 lines of text. The text box to follow the commandbuttons

Again I at a loss on how to do this.