Search and replace in multiple columns

Hello
What I need to do is replace a bullet symbol in multiple columns with text from row 2 of that column (Bullets in column c get replaced with text from c2)and then re-format that column to Arial 10 pt font.
I can do it with this macro one column at a time but would like to do it all in one step. If possible I would also like to be able to loop though all worksheets (approx 19) and do the same on each sheet.

Sub Find_Replace2()
    Dim SFind As String
    Dim SReplace As String
    
    SFind = "*·*" 'Find Bullet
    SReplace = Range("G2").Value 'Replacement value

    Range("G5:G100").Replace _
        What:=SFind, Replacement:=SReplace, _
    LookAt:=xlWhole, MatchCase:=False
    'Reformat font to Arial
     Columns("G:G").Select
    With Selection.Font
        .Name = "Arial"
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Columns("G:G").EntireColumn.AutoFit
End Sub

I hope this is clear enough and thanks in advance for any help

Cheers

Alan