Alan,

The only way I can think of to test whether Rng is declared explicitly as a
Range rather than as a Varaint is to attempt to set Rng to another type of
object. If this does not cause an error, then Rng is a Variant. If it fails,
Rng is declared as a Range. For example,

Sub AAA()
   Dim R1 ' Variant
   Dim R2 As Range

   Set R1 = Range("A1")
   Set R2 = Range("A1")

   On Error Resume Next
   Err.Clear
   Set R1 = Worksheets(1)
   If Err.Number <> 0 Then
       Debug.Print "R1 Is Not A Variant"
   Else
       Debug.Print "R1 Is A Variant"
   End If

   Err.Clear
   Set R2 = Worksheets(1)
   If Err.Number <> 0 Then
       Debug.Print "R2 Is Not A Variant"
   Else
       Debug.Print "R2 Is A Variant"
   End If
End Sub

In this code, the result is that R1 is recognized as a Variant because
setting it to a Worksheet does not raise an error. R2 is recognized as Range
because you get an error 13 Type Mismatch when attempting to set it to a
Worksheet.

In the real world, though, I'm not sure that the distinction is meaningful.