Hi,
I try this code (copy from youtube) and it doesn't work.
This code supposes to create 4 new worksheet name Week1 - Week4
The notice is:
"Run-time error '242'
Object required"

I really appreciate your help.

HHCFX


Sub newsheet()
'
' newsheet Macro
'

'
Dim i As Integer
i = 1
Do While i <= 4

    Sheets.Add After:=ActiveSheet
    ActiveSheets.Name = "week" & i
    
    i = i + 1
    
Loop

Worksheets(1).Delete

End Sub