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

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" wrote in message
...
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

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" wrote:

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" wrote in message
...
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

.

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

"Vikram" wrote in message
...
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" wrote:

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" wrote in message
...
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

.