koşula göre satır eklemek

[ikikan]

örnek olarak
bu aralıktaki
Set Aralik = Range("ab6:ab" & [ab65536].End(3).Row)

koşula göre satır eklene bilirmi
örnek a1 hücresi kırmızı ise satır ekle
veya a1 hücresine "tamam" yazınca satır ekle

 

[Muzaffer Ali]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" And Target.Text = "Tamam" Then
        Rows("2:2").Insert 'ikinci satıra ekler
    End If
End Sub

 

[ikikan]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" And Target.Text = "Tamam" Then
        Rows("2:2").Insert 'ikinci satıra ekler
    End If
End Sub

bu kod çalışmıyor bir hatamı yapıyorum ?