VBA Code to add worksheet in Excel 2007

This code adds a new worksheet. If you leave it as is it will just add the next sheet in the count...
if you run in and you have three sheets, it will add sheet 4.


Dim WS As Worksheet
Set WS = Sheets.Add