Copy Worksheet to New Workbook Based on Worksheet Name

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!