Sheet variabel ansprechen

Sub steht:
Dim FinalRow As Long
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Worksheets("Daten")
Set ws2 = Worksheets("Auswertung")
Anzahl_Werte       'soll 

Sub Anzahl Werte ausführen mit variablen Tabellennamen den ich immer anders festlegen kann
End Sub



im 

Sub Anzahl_Werte steht folgender Code:
Dim FinalRow As Long
Dim i As Integer
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim rng As Range, rngC As Range, IntC As Integer, IntB As Integer, IntD As Integer, IntE As  _
Integer, IntF As Integer, IntG As Integer, IntH As Integer, IntI As Integer, IntJ As Integer, IntK As Integer, IntL As Integer, IntM As Integer, IntN As Integer, IntO As Integer, IntP As Integer, IntQ As Integer, IntR As Integer, IntS As Integer, IntT As Integer, IntU As Integer
FinalRow = Worksheets(ws1).Cells(Rows.Count, 1).End(xlUp).Row
Set rng = ThisWorkbook.Worksheets(ws1).Range("J1:J" & FinalRow)
ThisWorkbook.Worksheets(ws2).Activate
For Each rngC In rng
If rngC >= 0 And rngC  "" And rngC  ActiveSheet.Cells(6, 2).Value And rngC  "" And rngC  ActiveSheet.Cells(7, 2).Value And rngC  "" And rngC  ActiveSheet.Cells(8, 2).Value And rngC  "" And rngC  ActiveSheet.Cells(9, 2).Value And rngC  "" And rngC 
Ich möchte später in Anzahl_Werte für jeweils andere Tabellenblätter anwenden indem ich immer im Main Programm Set ws1 und ws2 ändere. 

Leider kommt immer Typen unverträglich oder dass es das Tabellenblatt nicht findet. 

Wie spreche ich jetzt richtig die Tabellenblätter an bei FinalRow....., Set Range und beim aktivieren des Worksheets?

Gruß Anni