Changing A Worksheet Internal Name

I need to create a new worksheet and control both the internal and tab names of the worksheet. The following code works to create the new sheet, and set the external (tab) name.

Sub AddAndRenameWorksheet()

Dim ws As Worksheet

With ActiveWorkbook
.Worksheets.Add Before:=Sheets(1)
.Worksheets(1).Name = "Schedules" 'changes the external name

End With

End Sub

I do not know how to set the internal name For example, I would normally go into worksheet Properties and change the (Name) property. Is there a way to do this in VBA?