Checkbox as variable not defined vba

[hellscar]

Hi everyone!

I have a sub that I want to use on various checkboxes on various sheets. So I set the checkbox as a variable called Cbx:
Here's what I've got:

Sub Checkbox(Copysheet As Worksheet, ButtonSheet As Worksheet, Cbx As Checkbox)
    Application.ScreenUpdating = False
    If Workbooks("BCTF").ButtonSheet.Cbx.Value = 1 Then
        Copysheet.Select
        Range("A2:E" & Range("A" & Rows.Count).End(xlUp).Row).Select
        Selection.Copy
        With Sheets("tdq")
            .Select
            .Range("C" & Rows.Count).End(xlUp).Offset(1).Select
            .Paste
            .PasteSpecial xlPasteColumnWidths
        End With
        Workbooks("BCTF").ButtonSheet.Activate
    Else
        Reset
    End If
    Application.ScreenUpdating = True
End Sub

And when I call in another sub such as:

Sub CheckBox11Off()
    Call Checkbox(Sheets("Off"), Sheets("MCO"), Checkbox("Check Box 2"))
End Sub

I get an error message for the line "Call Checkbox". In the version above the message being "Type mismatched". I've also tried putting in the variable as Checkboxes("Check Box 2") (Here message "sub or function not defined"), or Checkbox(Check Box 2) or Check box 2 (Here message "ByRef Argument type mismatched)... In the first Sub I've also tried writing "Cbx As Checkbox" and "Cbx As Checkboxes"
Does anyone know how to refer to the Checkbox so that it works??

Thanks in advance!

(P.S: Also in the first Sub

 .Paste
 .PasteSpecial xlPasteColumnWidths

work but if I put in the next line

. PasteSpecial xlPasteFormats

I get an error message "PasteSpecial Method of Worksheet Class Failed"
If someone knows the answer to this other problem I would be grateful as well!)

 

[dmt32]

Hi
welcome to forum

try following changes to your parameters & see if resolves your issues

Sub Checkbox(ByVal Copysheet As Worksheet, ByVal ButtonSheet As Worksheet, ByVal Cbx As Object)

Dave

 

[hellscar]

Hi
welcome to forum

try following changes to your parameters & see if resolves your issues

Sub Checkbox(ByVal Copysheet As Worksheet, ByVal ButtonSheet As Worksheet, ByVal Cbx As Object)

Dave

Hi thanks!

In fact, I've realised I've been calling the function Checkbox in the variables and not the actual checkbox. So I've changed the name of the first sub to Chckbx (ByVal Copysheet As Worksheet, ByVal ButtonSheet As Worksheet, ByVal Cbx As Object) for less confusion and as you suggested.
Now the second sub is:

Sub CheckBox11Off()
    Call Chckbx(Sheets("Off"), Sheets("MCT"), Sheets("MCT").[COLOR=rgb(0, 0, 0)]CheckBoxes("Check Box 2")[/COLOR])
End Sub

And it seems to not be a problem anymore.

However now the line

If Workbooks("BCTF").ButtonSheet.Cbx.Value = 1 Then

tells me "Object doesn't support this property".
Is there a way to keep the properties of a checkbox?

 

[dmt32]

Hi,
you should only need the passed object

If Cbx.Value = 1 Then

Dave

 

[hellscar]

Yes thank you so much works perfectly now!

 

[dmt32]

Yes thank you so much works perfectly now!

welcome glad resolved - appreciate feedback

Dave