Problem with R1C1 in Formulae when Running Code

Untested...but maybe something like this?

    If Application.ReferenceStyle = xlR1C1 Then
        Set rng = Range(Cells(1, 1), Cells(999, 3))
    Else
        Set rng = Range("A:C")
    End If