Deleting Columns

Hi I've got 2 codes here,

This:

Delete_Info = Delete_Column.Text
Call DelColumn(Delete_Info)

Will call the sub procedure:

Sub DelColumn(Delete_Info)

    Columns("Delete_Info:IV").Select
    Selection.Delete Shift:=xlToLeft
End Sub

It doesnt work. The main purpose here is to delete a few columns all the way to the last column of the file. The initial column to be selected will be from "Delete_Column.Text" (A textbox entered by a user) all the way to column IV.

So is anyone here able to help me? I will try to provide more info if needed.
Thanks

You do not need to select before deleting
Your 2 lines of code in DelColumn macro can be reduced to 1 line of code

Sub DelColumn(Delete_Info)
    Columns(Delete_Info & ":IV").Delete Shift:=xlToLeft
End Sub

ffffloyd
Reply is correct as to the cause of your error