Ich brauche fachmännischen Rat

Sub Test()
Dim oWS As Object
Dim rBereich As Range
Set oWS = Worksheets("B")
Set rBereich = oWS.Range(Cells(2, 1), Cells(oWS.Cells(Rows.Count, 1).End(xlUp).Row, 1))
End Sub

Es funktioniert nur, wenn das Tabellenblatt "B" auch das aktive Tabellenblatt ist. Ist z.B. aber Tabellenblatt "A" aktiv, erhalte ich die Fehlermeldung: "Anwendungs- oder objektdefinierter Fehler". Gibt es eine Möglichkeit, das Makro so zu formulieren, dass es auch dann funktioniert, wenn "B" nicht das aktive Tabellenblatt ist? Ich möchte auf "B" kein Select anwenden.