Hi all,
I'm trying to write a code that searches the active workbook for sheet names that end in "budget" and add them to a new workbook. Then I would like to delete the sheets that were copied from the active workbook. Here is what i have but it doesn't work (I'm sure there are many reasons why). Any help would be appreciated.
Dim wks As Worksheet Set NewBook = Workbooks.Add For Each wks In ThisWorkbook.Worksheets If Right(wks.Name, 6) = "Budget" Then wks.Copy Destination = Workbooks("NewBook") End If Next wks
Thanks!
Bookmarks