Re: $$Excel-Macros$$ How to delete alternate sheets faster

2012-11-05 Thread Paul Schreiner
Subject: Re: $$Excel-Macros$$ How to delete alternate sheets faster Hi team, Can anyone help me in Shape - Organizational chart in MS Excel. Attached is the sample excel file, in Sheet 1 there is an attached Organization chart which I am creating through VBA code., I want to fill each node

Re: $$Excel-Macros$$ How to delete alternate sheets faster

2012-11-01 Thread Pravin Gunjal
*Dear Noorain* * * *Pl inform how to and where to use this code..* *Thank you.* * * *Pravin. * On Thu, Nov 1, 2012 at 11:04 AM, NOORAIN ANSARI noorain.ans...@gmail.comwrote: Dear Pravin, Please try Sub delete_alternative_sheet() Dim i As Integer On Error Resume Next For i = 2 To

Re: $$Excel-Macros$$ How to delete alternate sheets faster

2012-11-01 Thread NOORAIN ANSARI
Dear Pravin, Please press Alt+F11 and goto Insert-module and paste code and press F5 to execute macro. Hope it will useful for you. On Thu, Nov 1, 2012 at 11:40 AM, Pravin Gunjal isk1...@gmail.com wrote: *Dear Noorain* * * *Pl inform how to and where to use this code..* *Thank you.* *

Re: $$Excel-Macros$$ How to delete alternate sheets faster

2012-11-01 Thread Aamir Shahzad
Dear Noorain Sir, Can you ammend your code that when we run macro, a message box appear and ask for select the sheets which you want to delete and we will select the multiple sheet which we want to delete. Aamir Shahzad On Thu, Nov 1, 2012 at 11:34 AM, Pravin Gunjal isk1...@gmail.com wrote:

Fwd: $$Excel-Macros$$ How to delete alternate sheets faster

2012-11-01 Thread Pravin Gunjal
*It would be better... * -- Forwarded message -- From: Aamir Shahzad aamirshahza...@gmail.com Date: Thu, Nov 1, 2012 at 12:13 PM Subject: Re: $$Excel-Macros$$ How to delete alternate sheets faster To: excel-macros@googlegroups.com Dear Noorain Sir, Can you ammend your code

Re: $$Excel-Macros$$ How to delete alternate sheets faster

2012-11-01 Thread Paul Schreiner
the people you can, As long as ever you can.” - John Wesley - From: NOORAIN ANSARI noorain.ans...@gmail.com To: excel-macros@googlegroups.com Sent: Thu, November 1, 2012 1:35:04 AM Subject: Re: $$Excel-Macros$$ How to delete

Re: $$Excel-Macros$$ How to delete alternate sheets faster

2012-11-01 Thread Ahmed Honest
*Subject:* Re: $$Excel-Macros$$ How to delete alternate sheets faster Dear Pravin, Please try Sub delete_alternative_sheet() Dim i As Integer On Error Resume Next For i = 2 To Sheets.Count Step 2 Sheets(i).Delete Next i End Sub On Thu, Nov 1, 2012 at 10:51 AM, Pravin Gunjal isk1

Re: $$Excel-Macros$$ How to delete alternate sheets faster

2012-11-01 Thread Sam Mathai Chacko
*- -- *From:* NOORAIN ANSARI noorain.ans...@gmail.com *To:* excel-macros@googlegroups.com *Sent:* Thu, November 1, 2012 1:35:04 AM *Subject:* Re: $$Excel-Macros$$ How to delete alternate sheets faster Dear Pravin, Please try Sub delete_alternative_sheet() Dim i As Integer

Re: $$Excel-Macros$$ How to delete alternate sheets faster

2012-11-01 Thread Paul Schreiner
Cc: Pravin Gunjal isk1...@gmail.com Sent: Thu, November 1, 2012 8:24:16 AM Subject: Re: $$Excel-Macros$$ How to delete alternate sheets faster Another way would be to create an array of sheet names and the delete it accordingly. So even if you go with a positive Step, it would still work. Based

Fwd: $$Excel-Macros$$ How to delete alternate sheets faster

2012-11-01 Thread Pravin Gunjal
Schreiner schreiner_p...@att.net Date: Thu, Nov 1, 2012 at 5:16 PM Subject: Re: $$Excel-Macros$$ How to delete alternate sheets faster To: excel-macros@googlegroups.com That's not going to work out well. Let's say you have 11 sheets the Sheets() array looks like: Sheets(1).Name = One Sheets(2).Name

Re: $$Excel-Macros$$ How to delete alternate sheets faster

2012-10-31 Thread NOORAIN ANSARI
Dear Pravin, Please try Sub delete_alternative_sheet() Dim i As Integer On Error Resume Next For i = 2 To Sheets.Count Step 2 Sheets(i).Delete Next i End Sub On Thu, Nov 1, 2012 at 10:51 AM, Pravin Gunjal isk1...@gmail.com wrote: *Dear Friends,* * * *Greetings !* * * *I am having an