I need a Loop

I need a VBA loop that will loop through my tabs and add an increasing number to the cell J1
The VBA needs to not need the worksheet name to be specified as it changes depending upon the imput.

Here is what I have so far

Sub Increasing Number()

    Dim strPath As String
    Dim xWs As Worksheet

    strPath = ActiveWorkbook.Path & "\"
    
       For Each xWs In Application.ActiveWorkbook.Worksheets
         If xWs.Name <> "Button" And xWs.Name <> "CopyPaste" And xWs.Name <> "RMR" And xWs.Name <> "Reformat Machine" And xWs.Name <> "Equipment" Then
         'Not sure what to put here that will make it work'
        End If
    Next xWs
        
End Sub

with xWs 
.range("J1").value= something
end with

Again I ask:

J1 in each qualified sheet or J1 in a specific sheet?

Try:

Sub Increasing Number(): Dim xWs As Worksheet, j as long:j=1      
      For Each xWs In Worksheets
  If xWs.Name <> "Button" And xWs.Name <> "CopyPaste" And _
xWs.Name <> "RMR" And xWs.Name <> "Reformat Machine" And _
   xWs.Name <> "Equipment" Then
xWs.Range("J1")=j:j=j+1:End If:Next xWs: End Sub