Range - problem

der code sieht folhendermassen aus:
1)
Private Sub Workbook_BeforePrint(Cancel As Boolean)

drucken
Cancel = True

End Sub

sub drucken:

Worksheets("R_T Kennlinie").Activate
Range("B2").Select
ActiveCell = "=COUNTA(B21:G21)"
If ActiveCell.Value > 0 Then ActiveSheet.PrintOut from:=1, to:=1:

allerdings zeigt er nun einen fehler bei der zeile range("B2").select an

fehler: methode range für objekt _global fehlgeschlagen

hilfe!!!!