Delete all columns apart from column A and Selected Column

[Mark F]

Hi All

I'm looking for VBA code that will delete all columns in a range apart from Column A, and the Column where the currently selected cell is

Thanks for any help

Mark

 

[Rick Rothstein]

When you say "delete", I assume you mean physically delete the columns themselves and not simply clear the cell values within the columns. Give this macro a try...

Sub ColumnsDeleter()
  Range(ActiveCell.Offset(, 1), Columns(Columns.Count)).EntireColumn.Delete
  If ActiveCell.Column > 2 Then Range("B1", ActiveCell.Offset(, -1)).EntireColumn.Delete
End Sub

 

[Mark F]

Brilliant!!

Exactly what I need

Cheers

Mark