i have a code where it populates all the sheet name in a combo
box .. but i get an error when any workbook has chartsheets. i need to
modify this code snippet in such a way that it has to populate even
chart sheets object name in a combo box if not atleast igonore chart
sheets object name ......

For Each wks In ActiveWorkbook.Sheets
If wks.Visible = xlSheetVisible Then
ctrl.AddItem wks.name
End If
Next wks