Delete columns based on cell value

[Billdub417]

Hello,

I have a formula in cell a1 of a sheet which results in a number between 6 and 28

Based on this value, is it possible to create a vba that would select this column and those beyond it, i.e. if it said 8, it would select columns H : XFD and delete the columns?

Appreciate any help,

VMT.

 

[Fluff]

How about

Sub Billdub()
   Range(Cells(1, Cells(1, 1)), Cells(1, Columns.Count)).EntireColumn.Delete
End Sub

 

[Billdub417]

thankyou!

Is it possible to adapt the same code to copy all previous columns? i.e. in the above example, it would copy columns A:G?

 

[Fluff]

How about

Sub Billdub()
   Range("A1", Cells(1, Cells(1, 1) - 1)).EntireColumn.Copy
End Sub

 

[Billdub417]

Perfect, thanks.

 

[Fluff]

You're welcome & thanks for the feedback