VBA for all Sheets (Windows login username to cell)

[spmatrix]

Hello to all the forum.
I have the following vba code, which works fine in a sheet. How can I make it work on all the sheets or on the whole workbook, without having to pass the code to all the sheets separately?


Thanks in advance
Spiros

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
If Not Intersect(Target, Me.Range("C8:E2000")) Is Nothing Then
    For Each cell In Intersect(Target, Me.Range("C8:E2000"))
        If cell.Value <> "" Then
                Me.Cells(cell.Row, "F").Value = Now()
                Me.Cells(cell.Row, "G").Value = environ$("UserName")
               Else
               Me.Cells(cell.Row, "F").ClearContents
              Me.Cells(cell.Row, "G").ClearContents
         End If
    Next cell
End If
End Sub

[Paul_Hossler]

In 'ThisWorkbook' module, use the Workbook_SheetChange event handler

Option Explicit


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim cell As Range
    
    With Sh
        If Not Intersect(Target, Me.Range("C8:E2000")) Is Nothing Then
            For Each cell In Intersect(Target, Me.Range("C8:E2000"))
                If cell.Value <> "" Then
                    Me.Cells(cell.Row, "F").Value = Now()
                    Me.Cells(cell.Row, "G").Value = Environ$("UserName")
                    
                Else
                    Me.Cells(cell.Row, "F").ClearContents
                    Me.Cells(cell.Row, "G").ClearContents
                    
                End If
            Next cell
        End If
    End With


End Sub

[spmatrix]

Thank you so much !!!!

[Paul_Hossler]

I'd remove the "Me." of "Me.Range" for clarity since the "With Sh" is sufficient

[spmatrix]

Again Thank you. I appreciate your help !