Hi
The code below will clear the cells in G, H & L on the active row if the value of F is "Vacant".
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(6)) Is Nothing Then
If ActiveCell.Value = "Vacant" Then
Cells(ActiveCell.Row, 7).ClearContents
Cells(ActiveCell.Row, 8).ClearContents
Cells(ActiveCell.Row, 12).ClearContents
End If
End If
End Sub
The code needs to be placed in the sheet module in order to function (select the sheet tab, right click and click on view code).
Regards
Jeff
Bookmarks