Best Loop to replace multiple strings

[ker9]

Hi,
This works to replace one string on one worksheet, but I need to do this 4 times on 2 worksheets (8 total). What is best method to accomplish?

Sub ReplaceJob()

Sheet3.Activate
Dim c As Range
    For Each c In ActiveSheet.UsedRange
        c = Replace(c, "JOB FAMILY 1", "ADMIN ASSISTANT")
    Next
End Sub

I need to replace JOB FAMILY1, 2, 3, and 4 with ADMIN ASSISTANT on sheet3 and sheet8

I found my own solution

Sheet3.Activate

With Cells
        .Replace What:="JOB FAMILY 1", Replacement:="ADMIN ASSISTANT", LookAt:=xlPart, _
                 SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                 ReplaceFormat:=False
        
        .Replace What:="JOB FAMILY 2", Replacement:="ADMIN ASSISTANT", LookAt:=xlPart, _
                 SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                 ReplaceFormat:=False

        .Replace What:="JOB FAMILY 3", Replacement:="ADMIN ASSISTANT", LookAt:=xlPart, _
                 SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                 ReplaceFormat:=False

        .Replace What:="JOB FAMILY 3", Replacement:="ADMIN ASSISTANT", LookAt:=xlPart, _
                 SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                 ReplaceFormat:=False
End With