Run Time error '424'

I am getting this error code whenever I try to run this piece of code, it highlights the first line

I've been checking the web and it saiys I needs an object indenifier. I have messed with the code and I have worked out the offending pieces of code are the GRG & FD values.

I assume I have to dimension them as something (I assume it is them as they are tick boxes so no text is produced) but I have tried Dim GRG as Boolean but it just creates another error message (compile error, invalid qualifier).

Does anyone have any ideas what I am not doing or what I am doing incorrectly, please?

'   FR Non GRG Cases

IF MTT_Script.UoW = "SA Review" And MTT_Script.Letter = "Non-Sophisticated" And GRG.Value = False And FD.Value = False Then
    Sheets("Sheet2").Select
    Range("D2:S32").Select
    Selection.ClearContents
    Selection.Font.Underline = xlUnderlineStyleNone
    Selection.Font.ColorIndex = 0
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .MergeCells = True
        .WrapText = True
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
        With Selection.Font
        .Name = "Arial"
        .Size = 22
        End With
        .Value = "“Each case is reviewed on an individual basis so I cannot provide an exact time frame.“" & vbNewLine & _
        vbNewLine & _
        "“However, once a case reaches File Review, then allowing for prioritisation of financially distressed customers in line with the FCA Guidelines, our experience is that it takes an average of " & Sheets("Sheet3").Range("H6") & " weeks before being passed on to the next stage of the review.”"
        Range("A1").Select
    End With