Hi sjsean, Try the attached workbook. Put the words "No Sales" (without the quotes) into any cell on one of the sheets. Note that sheet name and then run the macro. That sheet should be deleted. Hope this helps. Regards - Dave.
> > From: sjsean <sjsean95...@gmail.com> > > To: MS EXCEL AND VBA MACROS <excel-macros@googlegroups.com> > > Sent: Wednesday, May 27, 2009 8:00:27 PM > > Subject: $$Excel-Macros$$ Trouble with find > > > > I have a set of worksheets where the data provider always puts a sheet > > with "No Sales". > > > > I am trying to write a macro that will remove this sheet (and others > > if they fit the above criteria). > > > > Sub test() > > For i = 1 To Sheets.Count > > Sheets(i).Select > > Cells.Select > > Dim r As Range > > Set r = Selection.Find(What:="No Sales", After:=ActiveCell, > > LookIn:=xlFormulas, _ > > LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ > > MatchCase:=True).Activate > > > > If Not r Is Nothing Then Sheets(i).Delete > > Next > > > > End Sub > > > > _________________________________________________________________ > > Looking to move somewhere new this winter? Let ninemsn property > > helphttp://a.ninemsn.com.au/b.aspx?URL=http%3A%2F%2Fninemsn%2Edomain%2Eco... > > > _________________________________________________________________ Looking to change your car this year? Find car news, reviews and more http://a.ninemsn.com.au/b.aspx?URL=http%3A%2F%2Fsecure%2Dau%2Eimrworldwide%2Ecom%2Fcgi%2Dbin%2Fa%2Fci%5F450304%2Fet%5F2%2Fcg%5F801459%2Fpi%5F1004813%2Fai%5F859641&_t=762955845&_r=tig_OCT07&_m=EXT --~--~---------~--~----~------------~-------~--~----~ ------------------------------------------------------------------------------------- Some important links for excel users: 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at http://www.excelitems.com 2. Excel tutorials at http://www.excel-macros.blogspot.com 3. Learn VBA Macros at http://www.vbamacros.blogspot.com 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com If you find any spam message in the group, please send an email to: Ayush Jain @ jainayus...@gmail.com or Ashish Jain @ 26may.1...@gmail.com ------------------------------------------------------------------------------------- -~----------~----~----~----~------~----~------~--~---
Book2.xls
Description: MS-Excel spreadsheet
