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