Delete colomn depending on a cell value

Hello turkanet,

Do you really want to DELETE Columns E, or only clear its data?

Hello turkanet,

There are many ways to do it. I don't know if you require the following Code, which goes into the Worksheet Code;

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("E12") = "AAA" Then
 Columns("E:E").Delete
End If

End Sub

Hi turkanet,

Another way is to add a Module to your Workbook, with a Button on the appropriate sheet, which you click to delete column E.

Option Explicit
Sub Test()

If Range("E12") = "AAA" Then
 Columns("E:E").Delete
End If
End Sub

Try the attached sample workbook.