Method Dange of object 'Global' failed

[asafr]

Написал следующее:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim StatusRange As Range
With Worksheet
Dim RowStatus As Integer
RowStatus = Target.Row
Target(Cells(RowStatus, 30)) = 9 'Error
StatusRange.Value = "9"
End With
End Sub

В строке, помеченной Error выскакивает ошибка "Method Dange of object 'Global' failed", хотя по всем примерам, что у меня имеются, такого быть не должно. Что я не так делаю.
Заранее всем благодарен

[asafr]

Пардон
Не правильно написал строчку с Error.
Dim StatusRange As Range
With Worksheet
Dim RowStatus As Integer
RowStatus = Target.Row
Target(Cells(RowStatus, 30)) = 9 'Error
StatusRange.Value = "9"
End With
Так почему возникает ошибка?

[asafr]

Совсем я уже... Вот так строчка написана д.б. Но ошибка все-равно остается
StatusRange(Cells(RowStatus, 30)) = 9 'Error

[GSerg]

StatusRange.Cells(RowStatus, 30) = 9

[Зелёный]

GSerg, теперь пишет "Object Variable or With block variable not set"... Вот такая вот фигня...

[Зелёный]

"Зеленый" - это я ник себе сменил, дабы все соответствовало действительности, ибо в VB я нуль...

[Зелёный]

Решил:

Set StatusRange = Range("AD:AD")
StatusRange.Cells(RowStatus) = 9