All I want to do is create and name a new Worksheet,
The below code doesn't quite work, your help would me much appreciated:

sub ad()

worksheets.add
Set worksheets.Name = "Changes"

End Sub

sub ad()

worksheets.add
Activesheet.Name = "Changes"

End Sub

or

Sub Addsheet()
worksheets.Add.Name = "Changes"
End sub

--
Regards,
Tom Ogilvy


"teresa" wrote in message
...
All I want to do is create and name a new Worksheet,
The below code doesn't quite work, your help would me much appreciated:

sub ad()

worksheets.add
Set worksheets.Name = "Changes"

End Sub