Deleteing a worksheet

[Guest]

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

 

[Guest]

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

 

[Ron de Bruin]

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

Cell must be Cells

 

[Dave Peterson]

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.