Apply the same macro on ALL sheets

(I know this is easy, or have been asked before, please bear with me)....suppose I have the ff in sheet1:

A B
1 (data) (display time the data was pasted/posted)
2
3
.
.
.

this is my macro:
Private Sub worksheet_change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
Cells(Target.Row, 2).Value = Time
Application.EnableEvents = True
ProtectCellsInB
End If
End Sub

How will I be able to do the same steps in ALL sheets? (aside from typing the same macro in ALL sheets)

TIA

Try the ThisWorkbook Module.