Code funktioniert unter 2003, nicht unter 2010

Sub Zellen_formatieren()
Dim Zeilenbereich As Integer
Dim Spaltenbereich As Integer
Dim Zählspalte As Integer
Dim erste_Zeile As Integer
Spaltenbereich = Forecast.Range("E2").Value
'==> funktioniert unter 2003 nicht unter 2010, warum? 424 Object required
'Spaltenbereich = Range("E2").Value
' ==> wird alternativ verwendet und funktioniert, warum kann ich das Tabellenblatt nicht  _
benennen?
Zählspalte = 4
erste_Zeile = 14
'letzte Zeile bestimmen
leer = 0
For i = erste_Zeile To 65000
'If Forecast.Cells(i, Zählspalte).Text  "" Then
If Cells(i, Zählspalte).Text  "" Then
leer = 0
Else
leer = leer + 1
If leer > 10 Then
Exit For
End If
End If
Next i
Zeilenbereich = i - 11
ActiveSheet.Range(Cells(4, 2), Cells(Zeilenbereich, Spaltenbereich)).Select
'Fehler 1004: Select method of range class failed ==> unter 2003 funktioniert es, was ist  _
anders? Gibt es Alternativen?
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End Sub