Wenn Zelle > dann Makro

Sub A1_Rahmen_versetzen()
Worksheets("Kulanzblatt-VK").Select
Range("A1").Select
Worksheets("Kulanzblatt-VK").Unprotect ("ww")
ActiveSheet.Shapes("Text Box 127").Select
Selection.ShapeRange.IncrementLeft 821.25
Selection.ShapeRange.IncrementTop 10.5
Range("AB38").Select
Range("G20").Select
End Sub

Sub A1_Rahmen_zurück()
Worksheets("Kulanzblatt-VK").Select
Range("A1").Select
Worksheets("Kulanzblatt-VK").Unprotect ("ww")
ActiveSheet.Shapes("Text Box 127").Select
Selection.ShapeRange.IncrementLeft -821.25
Selection.ShapeRange.IncrementTop -10.5
Range("G20").Select
'' .Protect DrawingObjects:=True, Contents:=True, Scenarios _
'' :=True, Password:="ww"
End Sub

Sub A1_Rahmen_versetzen()ausgeführt werden.
Wenn in der Zelle "" drin steht, dann Makro:

Sub A1_Rahmen_zurück() ausgeführt werden.
Wie geht das ?
Gruß Walter