VBA code to automatically clear a cells contents when another cell is empty

sorry worksheets not worksheet. i tested it and it is working. let me know!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tmpbox As Range
application.screenupdating = false
Set tmpbox = worksheets("TargetSheet").Range("A8")
worksheets("TargetSheet").Unprotect

Do Until tmpbox.Row = 26
If tmpbox.Value = "" Then
tmpbox.Offset(0, 2).Value = ""
End If
Set tmpbox = tmpbox.Offset(1, 0)
Loop
worksheets("TargetSheet").Protect password:="password"

End Sub