Macros and Checkboxes

[ScottDucey]

I have written a series of macro's to interface with the data filter in MS Excel. I am also utilizing the feature "checkboxes", thereby linking them to the macros themselves. This is designed to make it easier for certain users on the team. Unfortunately, I am not able to make multiple checkbox selections, as it only seems to recognize the last selection I make, and the macro appears to "undo" the previous selection(s) made and only presents the most recent one. I hope I am explaining myself correctly and sure could use some help. Thanks in advance for your help.

Scott

 

[NoSparks]

Care to show us the macro(s) you're requesting assistance with ?

 

[ScottDucey]

Sure. Just one point. I am not a programmer. So whatever you solve, if you can explain simply I greatly appreciate it. That being said, here is the code for the various macros within a given column:

Sub CompanyTypeCaptive()
'
' CompanyTypeCaptive Macro
'

'
    Sheets("Data").Select
    ActiveSheet.Range("$A$2:$BO$655").AutoFilter Field:=3, Criteria1:="Captive"
    Sheets("Checkbox Report Writer").Select
    Range("E22").Select
End Sub
Sub CompanyTypeRESET()
'
' CompanyTypeRESET Macro
'

'
    Sheets("Data").Select
    ActiveSheet.Range("$A$2:$BO$655").AutoFilter Field:=3
    Sheets("Checkbox Report Writer").Select
    Range("E36").Select
End Sub
Sub CompanyTpyeCaptiveManager()
'
' CompanyTpyeCaptiveManager Macro
'

'
    Sheets("Data").Select
    ActiveSheet.Range("$A$2:$BO$655").AutoFilter Field:=3, Criteria1:= _
        "Captive Manager"
    Sheets("Checkbox Report Writer").Select
    Range("E23").Select
End Sub
Sub CompanyTypeCarrier()
'
' CompanyTypeCarrier Macro
'

'
    Sheets("Data").Select
    ActiveSheet.Range("$A$2:$BO$655").AutoFilter Field:=3, Criteria1:="Carrier"
    Sheets("Checkbox Report Writer").Select
    Range("F24").Select
End Sub
Sub CompanyTypeCarrierNonRated()
'
' CompanyTypeCarrierNonRated Macro
'

'
    Sheets("Data").Select
    ActiveSheet.Range("$A$2:$BO$655").AutoFilter Field:=3, Criteria1:= _
        "Carrier (non rated)"
    Sheets("Checkbox Report Writer").Select
    Range("E25").Select
End Sub
Sub CompanyTypeMGAMGU()
'
' CompanyTypeMGAMGU Macro
'

'
    Sheets("Data").Select
    ActiveSheet.Range("$A$2:$BO$655").AutoFilter Field:=3, Criteria1:=Array( _
        "MGA", "MGA (HUB Owned)", "MGU"), Operator:=xlFilterValues
    Sheets("Checkbox Report Writer").Select
    Range("E28").Select
End Sub
Sub CompanyTypeProgramManager()
'
' CompanyTypeProgramManager Macro
'

'
    Sheets("Data").Select
    ActiveSheet.Range("$A$2:$BO$655").AutoFilter Field:=3, Criteria1:= _
        "Program Manager"
    Sheets("Checkbox Report Writer").Select
    Range("E31").Select
End Sub
Sub CompanyTypeRRG()
'
' CompanyTypeRRG Macro
'

'
    Sheets("Data").Select
    ActiveSheet.Range("$A$2:$BO$655").AutoFilter Field:=3, Criteria1:="RRG"
    Sheets("Checkbox Report Writer").Select
    Range("E32").Select
End Sub
Sub CompanyTypeSafetyGroup()
'
' CompanyTypeSafetyGroup Macro
'

'
    Sheets("Data").Select
    Range("C2").Select
    ActiveSheet.Range("$A$2:$BO$655").AutoFilter Field:=3, Criteria1:= _
        "Safety Group"
    Sheets("Checkbox Report Writer").Select
    Range("E33").Select
End Sub
Sub CompanyTypeStateFund()
'
' CompanyTypeStateFund Macro
'

'
    Sheets("Data").Select
    ActiveSheet.Range("$A$2:$BO$655").AutoFilter Field:=3, Criteria1:= _
        "State Fund"
    Sheets("Checkbox Report Writer").Select
    Range("E34").Select
End Sub
Sub FacilityTypeAlliedHealthcare()
'
' FacilityTypeAlliedHealthcare Macro
'

'
    Sheets("Data").Select
    ActiveSheet.Range("$A$2:$BO$655").AutoFilter Field:=9, Criteria1:=Array( _
        "AHC", "AHC (on hold)", "AHC?"), Operator:=xlFilterValues
    Sheets("Checkbox Report Writer").Select
    Range("P10").Select
End Sub
Sub FacilityTypeRESET()
'
' FacilityTypeRESET Macro
'

'
    Sheets("Data").Select
    ActiveSheet.Range("$A$2:$BO$655").AutoFilter Field:=9
    Sheets("Checkbox Report Writer").Select
    Range("P12").Select
End Sub

 

[NoSparks]

Sorry Scott, I'm unable to help with this
Hopefully another member will drop by and assist