There's a similar event in the WorkBook events that will allow this to happen on each sheet
Option Explicit


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    With Target
        If .Count > 1 Then Exit Sub
        If .Column = 4 Or .Column = 10 Then
            Select Case .Value
                Case 1: .Value = .Value & "st"
                Case 2: .Value = .Value & "nd"
                Case 3: .Value = .Value & "rd"
                Case 4, 5, 6, 7, 8, 9, 10, 11, 12: .Value = .Value & "th"
                Case Else: Exit Sub
            End Select
        End If
    End With
End Sub
Copy the code
Select the workbook in which you want to store the code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
In the Project Explorer, find your workbook, and open the list of Microsoft Excel Objects
Right-click on the ThisWorkbook object, and choose View Code
Where the cursor is flashing, choose Edit | Paste