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" <(E-Mail Removed)> wrote in message
news:FE5B58AC-A38F-4414-9D43-(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
> news:FE5B58AC-A38F-4414-9D43-(E-Mail Removed)...
> > 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" <(E-Mail Removed)> wrote in message
news:817C945D-EAC5-4662-9124-(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
>> news:FE5B58AC-A38F-4414-9D43-(E-Mail Removed)...
>> > 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
>>
>> .
>>