Create a new named sheet after named sheet

Question

I am trying to create a new worksheet in excel vba using the following:

Option Explicit

Sub NewSheet()
    Dim T As Date, TabName As String
    T = Date