VBA Makro Zelle anspringen

Sub MarkiereTabelleAktuelleMonat()
  Dim sJahr As String, sSuchMonat As String, rngBereich As Range
  sJahr = tblUrlaubPlanner.[Jahr]
  If sJahr > CStr(Year(Now)) Then Exit Sub
  sSuchMonat = Format(Now, "MMMM YYYY")
  For Each rngBereich In tblUrlaubPlanner.Range("B:B")
    If CStr(rngBereich.Text) = sSuchMonat Then
      If ActiveSheet.Name > tblUrlaubPlanner.Name Then
        tblUrlaubPlanner.Select
'        rngBereich.Select
'      Else
'        tblSetting.Select
'        tblUrlaubPlanner.Select
      End If
      rngBereich.Select
      Exit For
    End If
  Next rngBereich
End Sub