If you just want to exclude the "History" worksheet:

Dim wks As Object
For Each wks In Worksheets
if wks.Name < "History" Then
wks.Activate
Delete_Columns
End If
Next wks

Does that help?

--
Regards,
Ron