Deleting columns if value of cell is not matching

[Vikram]

Hello All,
I have one workbook which contains 20-30 sheets and from these i would like
to check whether column C1="Expired" if value is matching then i would like
to delete entire column from all the sheets except two sheet (sheet1 and
sheet2).

Please help in this regard..

Best regards
Vikram

 

[Otto Moehrbach]

You say " i would like to check whether column C1="Expired"...". In what
sheet? Or do you mean you want to look in cell C1 In EACH sheet and, if
found, delete Column C in THAT sheet? As written now, you say you want to
delete column C of EVERY sheet if "Expired" is found in C1 in some (I don't
know which) sheet. HTH Otto

 

[Vikram]

Hello Otto,

I would like to check whether Cell C1 in each sheet contains "expired" and
if yes then delete that column i.e, column C, except 2 sheets

 

[Otto Moehrbach]

This macro will look at all sheets that are NOT named "Sheet1" or "Sheet2",
look for "Expired" in C1 and delete Column C if found. Post back if you
need more. HTH Otto
Sub DeleteExpired()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Sheet1" And ws.Name <> "Sheet2" Then
If ws.Range("C1") = "Expired" Then _
ws.Columns("C:C").Delete Shift:=xlToLeft
End If
Next ws
End Sub