Checkboxes not selecting sheets for PDF generation

Maybe:-

Private Sub chbxEnter_Click()

    Dim PDFsheets As String
    Dim s As Worksheet

Mysheets = split("Approval Form,Business Plan,Deal Worksheet,All Manager Deal Recap,Deal Recap,MEC Dealership Profile,Loyal,Mid Loyal,Non Loyal,Projected Incentive Report,MEC",",")

 For count = 1 to Ubound(MySheets)

If Activesheet.controls("CheckBox" & Count).Value = True Then PDFsheets = PDFsheets & MyArray(Count) & ","
Next

PDFsheets = Left(PDFsheets, Len(PDFsheets)-1)

MyArray = Split(PDFsheets,",")
        
    ThisWorkbook.Sheets(MyArray).Select

      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        strPath & strFName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
                                
  ActiveWindow.SelectedSheets(1).Select


End Sub