How to Handle Chart Sheets

  • Thread starter Thread starter vicky
  • Start date Start date
V

vicky

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
 
By Declaring Wks as Object I can certainly avoid error but chartseet
name are not populated in combooo box .
 
Hi,

For just worksheets use,

dim wks as Worksheet

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

Cheers
Andy
 
Back
Top