Problem with "As Worksheet"

[Dave]

I have the following in a macro:

Sub Macro()

Dim NEW As WorkSheet

Sheets.Add.Name = "John Smith"

End Macro

How to I then relate this sheet I've just created to NEW

i.e. NEW = "John Smith" or whatever.

Thanks
Dave