Linking commandbutton to existing Command Button VBA code

[Simmo1313]

Hi all,

I have a workbook that when sent from an apple computer back to me on desktop version lost all functionality of the command button. My aim is to try restore the original functionality of this button.

All the code is still in the original sheet code but the button no longer links to it as I think it became a form button instead of command.

I have insert a new command button and it is named the same as in the sheets source code but it still does not click.

When I look at the button in the formula cell it displays =EMBED("Forms.CommandButton.1","")

Is there a way I need to link this button back to the source code shown below. Is it in the formula above or do I need to change the command buttons properties somewhere?


Private Sub CommandButton3_Click() ' Log out
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim sh As Worksheet
For Each sh In Sheets
If sh.Name <> "Main" Then
sh.Visible = xlSheetVeryHidden
End If
Next sh
Sheet1.Range("b4") = "Select a Name"
Sheet1.Range("b6") = ClearContents
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Many thanks

 

[mrmmickle1]

Go to:

Developer >
Design View >
Right Click Button >
View Code >

Is the code what you expect?

You can also double click the button in design view and it should drill to the appropriate code....

You need to makes sure the button is linked to the correct code.

Once you have drilled to the code. You can paste you sub procedure into the click event in order to make it work correctly again....


Example:

[COLOR=#0000ff]Private Sub [/COLOR][COLOR=#000000]CommandButton1_Click()[/COLOR][COLOR=#0000ff]
[/COLOR][COLOR=#008000]
'Your Code Goes Here[/COLOR][COLOR=#0000ff]
[/COLOR]
[COLOR=#0000ff]
[/COLOR]
[COLOR=#0000ff]End Sub[/COLOR]

I have worked with people using Mas in my office. This alone should have no effect on the workbook.... unless they have altered it.