I am looking at a particular cell (E5) and if the word Total is in there I
want it to delete the worksheet.

Not sure why the following code doesn't work. Seemd fairly straight forward.

If Sheets("Baton Rouge").Cell(5, 1) = "TOTAL" Then
Sheets("Baton Rouge").Delete
End If

Thanks,

Kevin Porter

By the way it should read Cells not Cell. It does in the program.

"Kevin Porter" wrote:

> I am looking at a particular cell (E5) and if the word Total is in there I
> want it to delete the worksheet.
>
> Not sure why the following code doesn't work. Seemd fairly straight forward.
>
> If Sheets("Baton Rouge").Cell(5, 1) = "TOTAL" Then
> Sheets("Baton Rouge").Delete
> End If
>
> Thanks,
>
> Kevin Porter

> If Sheets("Baton Rouge").Cell(5, 1) = "TOTAL" Then

Cell must be Cells

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Kevin Porter" <(E-Mail Removed)> wrote in message news:BCCFFFA9-48B5-4153-9785-(E-Mail Removed)...
>I am looking at a particular cell (E5) and if the word Total is in there I
> want it to delete the worksheet.
>
> Not sure why the following code doesn't work. Seemd fairly straight forward.
>
> If Sheets("Baton Rouge").Cell(5, 1) = "TOTAL" Then
> Sheets("Baton Rouge").Delete
> End If
>
> Thanks,
>
> Kevin Porter

VBA is case sensitive unless you've done something special like adding this to
the top of the module:

Option Compare Text


You could also use:
If lcase(Sheets("Baton Rouge").Cells(5, 1).value) = lcase("TOTAL") Then

Or you may want to look at strcomp() in VBA's help.





Kevin Porter wrote:
>
> By the way it should read Cells not Cell. It does in the program.
>
> "Kevin Porter" wrote:
>
> > I am looking at a particular cell (E5) and if the word Total is in there I
> > want it to delete the worksheet.
> >
> > Not sure why the following code doesn't work. Seemd fairly straight forward.
> >
> > If Sheets("Baton Rouge").Cell(5, 1) = "TOTAL" Then
> > Sheets("Baton Rouge").Delete
> > End If
> >
> > Thanks,
> >
> > Kevin Porter

--

Dave Peterson