Hi Omar,
Since the code is displaying in-built popups/windows, there is no "for loop" required. However, sheets can be displayed using for loop but here in this code, to select any sheet from workbook, it's not required. Regards Ashish Jain McKinsey India Knowledge Center (Microsoft Certified Application Specialist) (Microsoft Certified Professional) http://www.excelitems.com http://www.openexcel.com On Oct 22, 4:32 pm, عمــــــــــــر <omar27...@gmail.com> wrote: > Sorry > I don't understand from which line the code get the list of sheets names? > There is no (for.. next) in code > Thank u very much > > > > > > > > -----Original Message----- > From: excel-macros@googlegroups.com [mailto:excel-mac...@googlegroups.com] On > Behalf Of Ashish Jain > Sent: Friday, October 22, 2010 10:34 AM > To: MS EXCEL AND VBA MACROS > Subject: $$Excel-Macros$$ Re: help in understanding code > > Hi Omar > > Here is line by line description of the VBA code you provided: > > Sub OMAR_QUERY() > 'Error Handling ON: In case of error, it will skip to next line. > On Error Resume Next > 'Error handling used specifically for this line of code. > 'If there are more than 16 worksheets, it will execute else will > throw an error. > 'It will display the 'activate' window to activate the worksheet > required. > Application.CommandBars("Workbook Tabs").Controls("More > Sheets...").Execute > 'In case of less than 16 sheets, error will be thrown and > execution will enter in IF block. > If Err.Number > 0 Then > 'Clear the error cache. > Err.Clear > 'It will display a pop-up to activate the worksheet > required. > Application.CommandBars("Workbook Tabs").ShowPopup > 'End of If Block > End If > 'Scroll to the first column of activated worksheet. > ActiveWindow.ScrollColumn = 1 > 'Scroll to the first row of activated worksheet. > ActiveWindow.ScrollRow = 1 > 'Error Handling OFF > On Error GoTo 0 > End Sub > > Regards > Ashish Jain > McKinsey India Knowledge Center > (Microsoft Certified Application Specialist) > (Microsoft Certified Professional) > > On Oct 21, 10:13 pm, عمــــــــــــر <omar27...@gmail.com> wrote: > > This code make a popup with sheetsList > > > But I don't understand how it works > > > On Error Resume Next > > > Application.CommandBars("Workbook Tabs").Controls("More > > Sheets...").Execute > > > If Err.Number > 0 Then > > > Err.Clear > > > Application.CommandBars("Workbook Tabs").ShowPopup > > > End If > > > ActiveWindow.ScrollColumn = 1 > > > ActiveWindow.ScrollRow = 1 > > > On Error GoTo 0 > > > Except this > > > Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute > > > If Err.Number > 0 Then > > > Err.Clear > > > Application.CommandBars("Workbook Tabs").ShowPopup > > -- > --------------------------------------------------------------------------- > ------- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links > :http://twitter.com/exceldailytip > 2. Join our LinkedIN group @http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials athttp://www.excel-macros.blogspot.com > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com > 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below > linkhttp://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&;... -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
