The following code is used in my sheet as part of a
larger code to make a list on a dialogue of all sheets in
the workbook. I have seen the part of code saying "skip
empty sheets" and have come to the conclusion this is why
the code is missing my charts from the list when I run it.

How can I get rid of this part to allow for the charts to
show?

Many Thanks - I have been messing around with this for
hours.

Rob

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
..