Run Time error '424'

[Sc0tt1e]

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

[Norie]

Don't dim them as anything, they already exist as checkbox objects.

If you have been declaring them that's probably the cause of the problem.

PS If the checkboxes are on the userform try using Me.GRG.Value and Me.FD.Value, Me refers to the userform I'm assuming this code is for.

[Sc0tt1e]

Perfect, I hadn't defined the userform.

All working now, thanks again Norie

[Norie]

That wasn't the problem, you could have used GRG.Value and FD.Value, you don't actually need the Me.