Public Sub TestMe()

    Dim r2 As Variant
    r2 = Worksheets(1).Range("C33")

End Sub