remove columns with specific data in multiple sheets

Thanks for the reply Mr.Pike..

i've test the code but got error returned. here attached workbook sample.
what i'm going to do is;

• remove entire column labeled as 26799, 27401, 27402, 27403, 27499 and 29122 (all marked red on SET1 sheet as example)

• add new column after "Objek (CE)" column and labeled as "Peruntukan (ET) 2010"

and everything is done at once to all sheet. I can edit this manually but since it got 100++ sheet, it'll be great if i can apply it to all sheet at once. The "final" sheet is what it's suppose to be.

Bro Pike,

i've tested it on my workbook and it's running fine. Big Thanks for the solution.

What if the column that i want to remove was placed on different cell and column at each sheet and the only key or reference is the column label marked red (refer SET1 on attachment). Should i start in a new thread for this or continue here since this scenario were related to the first one.

this programe i want to run on multiple sheet more then 15 sheet so how i apply and which sheet or workbook i will apply???plz guide me and help me because i am new learner


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iColor As Integer
'// Amended routine found on this Web site
'// Note: Don't use IF you have Conditional
'// formating that you want to keep!
'// On error resume in case
'// user selects a range of cells
On Error Resume Next
iColor = Target.Interior.ColorIndex

'Leave On Error ON for Row offset errors

If iColor < 0 Then
iColor = 36
Else
iColor = iColor + 1
End If

Cells.FormatConditions.Delete

With Range(Target.Address, Target.Address)
.FormatConditions.Add Type:=2, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = iColor
End With


End Sub