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

vicky wrote:
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

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info