Object required error in vba

I am trying to run the below macro to enter text in multiple selected sheets. But i get the runtime error "424" Object required

Sub CL_Numbering()
Dim shts As Worksheet
i = 1
For Each shts In ActiveWindow.SelectedSheets shts.Range("M3").Value = "EDRC-E-EM-FT-" & worsheetfunction.Text(i, "00") & " R0" i = i + 1
Next shts
End Sub

1 Answer

modify to this:

Sub CL_Numbering()
Dim shts As Worksheet
dim i as long
i = 1
For Each shts In ActiveWindow.SelectedSheets shts.Range("M3").Value = "EDRC-E-EM-FT-" & Application.WorksheetFunction.Text(i, "00") & " R0" i = i + 1
Next shts
End Sub