Assuming you have a Sub header and Footer

The only problem I see is the SPACE you currently have
between "current cell" in your If line.

HTH

"Larry D" wrote in message
oups.com:

I am working on some vba code in Excel 2000 with Microsoft Windows
2000.

I want to select the first cell in a tab and see if it has a value in
it.

I would like the code to look something like this:

sheets("firsttab").select
range("a1").select
set currentcell=activecell

if current cell < "" then
msgbox "There is data in the first tab", vbok
end if

Any idea what I am doing wrong?