Automatically Open A New Worksheet Every 1st Of The Month

I have been trying for the past four months now to get my workbook to automatically open a new worksheet every 1st of the month.

but I have failed each and every month. I have asked others to assist but to no avail.

this is the code in my workbook as it looks now.

Dim strValue As String
Dim Sht As Worksheets, foundSheet As Boolean, TEMPLATE As String
Dim rng As Range
Dim irow As Long
Dim myDate As Date, newDate As Date, oldSheet As String, newSheet As String
Dim ws As Worksheet
Dim strName As String
Dim wsh As Worksheet

i keep getting an error on the activesheet=newsheet.