How to delete columns range from the excel sheet

''Call the below function where were required, passing the parameter values:

Function ExcelDeleteColumns (sXlPath, sDestPath, sStartCol, sEndCol)
‘Create Excel object
Set oExcel = CreateObject(“Excel.Application”)

‘Sets the application to raise no app alerts
‘This case will allow a file overwrite w/o raising a ‘yes/no’ dialog
oExcel.DisplayAlerts = False

‘Open Book in Excel
Set oBook = oExcel.Workbooks.Open(sXlPath)

‘Set Activesheet
Set oSheet = oExcel.Activesheet

‘Delete row range
oSheet.Columns(sStartCol + “:” + sEndCol).Delete

‘Save new book to Excel file
oBook.SaveAs (sDestPath)

‘Close the xls file
oExcel.Workbooks.Close()
End Function