Record Macro vs Command button

[HazelHanH]

Hi, I am new to VBA. This is probably a very simple mistake but I need some guidance.

I am trying to align textboxes in the excel sheet and wanted to create a shortcut command button which can disappear when I am printing the worksheet.
I did a Record Macro to get the script. It works when I run the Macro.

However, when I "Call" this code to link it into the Command button code, it does not work. Will be grateful if anyone can spot what I am missing here...

 

[HazelHanH]

Sorry, I missed out this - This is the code in the command button.

 

[Logit]

Your code refers to "Selection" but you have not first selected the shapes .

Look at : SELECTING TEXT BOXES

ActiveSheet.Shapes.Range(Array("TextBox1", "TextBox2")).Select

 

[HazelHanH]

Your code refers to "Selection" but you have not first selected the shapes .

Look at : SELECTING TEXT BOXES

ActiveSheet.Shapes.Range(Array("TextBox1", "TextBox2")).Select

Thanks for your reply.
I did select the textbox if you see the screenshot background which I took with the error code.

Is there another code you will suggest I try?

 

[Logit]

Option Explicit

Sub SelAlignTexts()
    
    ActiveSheet.Shapes.Range(Array("TextBox1", "TextBox2", "TextBox3")).Select
    Selection.ShapeRange.Align msoAlignTops, False
    Selection.ShapeRange.Distribute msoDistributeHorizontally, False
    
End Sub