macro to remove columns & adjust width

[kts9365]

Alright,

I need to delete a column and adjust columns widths based on a reference number in cell AA9. For instance, if cell AA9 equals 10 then I need to delete columns N:P, and set column widths for columns to 4.86. If cell AA9 = 9, then I need to delete columns M:P, and set column widths for columns to 5.57.

TIA

 

[WinteE]

Copy the this code into the VBA object of the worksheet :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("AA9")) Is Nothing Then
    Select Case Range("AA9").Value
        Case 10
            Columns("N:P").Delete
            Cells.ColumnWidth = 4.86
        Case 9
            Columns("M:P").Delete
            Cells.ColumnWidth = 5.57
    End Select
End If

End Sub

Success,
Erik