Bruge Worksheet og Range som argument

Hej eksperter
Jeg forsøger at bruge worksheet og range-objekter som argumenter i procedurekald, men kan ikke få det til at virke.

Jeg har prøvet således:

Sub KaldTest()
    Dim Sh As Worksheet
    Dim R As Range
    Dim Sname As String
   
    Set Sh = ActiveSheet
    Set R = Range("A2")
    Sname = Sh.Name
   
    Call ParseSheetTest(Sh, R)
End Sub


Sub ParseSheetTest(Ws As Worksheet, Rng As Range)
    Dim R As Range
   
    Set R = Ws.Rng
   
    R.Value = "Test"
End Sub

...men får fejl i linjen 'Set R = Ws.Rng' nemlig 'Method or data member not found'.

Er der nogen der kan hjælpe? - på forhånd tak.