What is the code to paste the worksheet name in cell "C3" of each worksheet
in the workbook? I tried the following, but it didn't work. Thank you.

Sub insertname()
Dim Rng As Range
Dim n As Integer
Dim y as integer

n = Worksheets.Count
For y = 1 To n
Worksheets(y).Select
Set Rng = Range("A1")
Range("A1").Select
ActiveCell.Offset(0, 3).Value = Sheet.Name
Next y

end sub