remove columns with specific data in multiple sheets

hi,
i'm a newbies with excel. hope that u all can give me an idea on how to do these things on multiple sheets at once using macro. For your information, i have 100+ sheets in a single workbook to work in a short time. What i need to do is;

i/ removing all column containing "29122" (formated as text) in multiple sheet..

ii/ adding new column before the column containing "Peruntukan (ET) 2010" in multiple sheet.

help needed... tq in advance...

as for now, i`m using these code but need to rerun on each sheet;

Sub DeleteColumn()
'
' DeleteColumn Macro
'
' Keyboard Shortcut: Ctrl+d
'
    Columns("J:J").Select
    Selection.Delete Shift:=xlToLeft
    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B4").Select
    ActiveCell.FormulaR1C1 = "Peruntukan (ET) 2010"
    Range("B4").Select
    Selection.Columns.AutoFit
End Sub