Control not working

[al97233]

I have a control button on a worksheet that when clicked on it runs a code in VBA. For whatever reason this button is not working on my second computer. Both machines are running windows 10. There is another button on the worksheet that runs a macro and it works fine on both machines. Is there a setting in Excel that i need to change? It is the same workbook being used on both machines.

 

[steve the fish]

If you right click on the button do you see a box with 'assign macro'?

 

[al97233]

No.

 

[steve the fish]

Right click the sheet tab where the button resides and press view code. Do you see the code there?

 

[al97233]

Yes. I have checked and everything is there. I can open the same file on my computer and have no problems.

 

[steve the fish]

It could be something as simple as macros being enabled. It could be events are switched off. Try restarting excel and then reopening the file. Make sure macros are enabled. Events will be back on if you restart the application.

 

[al97233]

I tried all of that with no luck.

 

[steve the fish]

Ok then paste the full code here

 

[al97233]

Thanks for looking!

Private Sub CommandButton1_Click()
    Application.ActivePrinter = "\\SBS2011\Sales Copier on Ne09:"
    Dim i As Integer
    Dim TopPos As Integer
    Dim SheetCount As Integer
    Dim PrintDlg As DialogSheet
    Dim CurrentSheet As Worksheet
    Dim cb As CheckBox
    Application.ScreenUpdating = False

'   Check for protected workbook
    If ActiveWorkbook.ProtectStructure Then
        MsgBox "Workbook is protected.", vbCritical
        Exit Sub
    End If

'   Add a temporary dialog sheet
    Set CurrentSheet = ActiveSheet
    Set PrintDlg = ActiveWorkbook.DialogSheets.Add

    SheetCount = 0

'   Add the checkboxes
    TopPos = 40
    For i = 1 To ActiveWorkbook.Worksheets.Count
        Set CurrentSheet = ActiveWorkbook.Worksheets(i)
'       Skip empty sheets and hidden sheets
        If Application.CountA(CurrentSheet.Cells) <> 0 And _
            CurrentSheet.Visible Then
            SheetCount = SheetCount + 1
            PrintDlg.CheckBoxes.Add 78, TopPos, 150, 16.5
                PrintDlg.CheckBoxes(SheetCount).Text = _
                    CurrentSheet.Name
            TopPos = TopPos + 13
        End If
    Next i

'   Move the OK and Cancel buttons
    PrintDlg.Buttons.Left = 240

'   Set dialog height, width, and caption
    With PrintDlg.DialogFrame
        .Height = Application.Max _
            (68, PrintDlg.DialogFrame.Top + TopPos - 34)
        .Width = 230
        .Caption = "Select sheets to print"
    End With

'   Change tab order of OK and Cancel buttons
'   so the 1st option button will have the focus
    PrintDlg.Buttons("Button 2").BringToFront
    PrintDlg.Buttons("Button 3").BringToFront

'   Display the dialog box
    CurrentSheet.Activate
    Application.ScreenUpdating = True
    If SheetCount <> 0 Then
    'Print as one print job (continuous page numbers)
    '        If PrintDlg.Show Then
    '            For Each cb In PrintDlg.CheckBoxes
    '                If cb.Value = xlOn Then
    '                    Worksheets(cb.Caption).Select Replace:=False
    '                End If
    '            Next cb
    '            ActiveWindow.SelectedSheets.PrintOut copies:=1
    '            ActiveSheet.Select
    '        End If
    'Print as separate print jobs
        If PrintDlg.Show Then
            For Each cb In PrintDlg.CheckBoxes
                If cb.Value = xlOn Then
                    Worksheets(cb.Caption).Activate
                    ActiveSheet.PrintOut
'                   ActiveSheet.PrintPreview 'for debugging
                End If
            Next cb
        End If
    Else
        MsgBox "All worksheets are empty."
    End If

'   Delete temporary dialog sheet (without a warning)
    Application.DisplayAlerts = False
    PrintDlg.Delete

'   Reactivate original sheet
    CurrentSheet.Activate
    Sheets(1).Activate
    
End Sub

 

[al97233]

Keep in mind that this is working fine on one computer and not on the other and both have the same code (it is the same file).