execute an Add In

Hi Guys - update time!

I applied the following code to a workbook and saved as an add-in. I then checked it on the addins available bit and got the new addins tab on my ribbon with the my macro button name.
The problem occurs when i hit the button - i get the msg cannot run the macro moveXLAMMy Macro The Macro may not be available in this workbook or Macros may be disabled.

I have them enabled so it must be the first one!

Can anyone suggest a way out or what i have done wrong. Its the first time I have tried this so the water is a little (alot) murky!

Cheers

Sub move()
ActiveWorkbook.ActiveSheet.Columns("B:Z").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub

Private Sub Workbook_AddinInstall()

On Error Resume Next

'First thing the code does is remove the button if it hasn't been removed already
Application.CommandBars("Worksheet Menu Bar").Controls("MyMacro").Delete

'The above line results in an error if it has already been removed
'So this On Error Resume Next ignores if there's an error and just resumes starting below

Set MyMacro = Application.CommandBars("Worksheet Menu Bar").Controls.Add
With MyMacro
.Caption = "My Macro Button Name"
.Style = msoButtonCaption
.OnAction = "MyMacro" 'In your case this would be "move"
End With

End Sub

Private Sub Workbook_AddinUninstall()

On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("MyMacro").Delete

End Sub

Hi Guys - am having great difficulty here in spite of the kind help i have already recieved from Tiger and Colin yet I am still not able to achieve my desired result which is:

To run this code

Sub move()
    ActiveWorkbook.ActiveSheet.Columns("A:Z").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub

Via a command button on the ribbon.

I need to set this up for collegues.

Sub move()
ActiveWorkbook.ActiveSheet.Columns("B:Z").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub

So far I have entered this code in ThisWorkbook

Private Sub Workbook_AddinInstall()

On Error Resume Next

'First thing the code does is remove the button if it hasn't been removed already
Application.CommandBars("Worksheet Menu Bar").Controls("MyMacro").Delete

'The above line results in an error if it has already been removed
'So this On Error Resume Next ignores if there's an error and just resumes starting below

Set MyMacro = Application.CommandBars("Worksheet Menu Bar").Controls.Add
With MyMacro
.Caption = "My Macro Button Name"
.Style = msoButtonCaption
.OnAction = "MyMacro" 'In your case this would be "move"
End With

End Sub

Private Sub Workbook_AddinUninstall()

On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("MyMacro").Delete

End Sub

But am getting an error message "The Macro may not be available in this workbook or Macros may be disabled"

Any help appreciated as am struggling here. Cheers