Don,

Thanks for your help. For some reason when I did a cut and paste, the If
Ucase line kept coming back with a debug error. I changed it a bit to:

With Sheets("Print Area")
If UCase(.Cells(8, 67)) = "YES" Then PrintBatch
End With

So far it appears to do what I need it to do (keeps fingers crossed).
Thanks again for all your help and have a safe and Happy New Year.
"Don Guillett" wrote:

try this from anywhere in the workbook. Notice the periods . !

with sheets("Print Area")
x=.cells(columns.count,8).end(xltoright).column
if ucase(.cells("b",x))="YES" then PrintBatch
end with

--
Don Guillett
SalesAid Software

"Wolf" wrote in message
...
I need to create a macro in VBA that will look at a specific cell (which
contains the result of a lookup formula) in an If statement. Basically it
would look at a certian cell, and If that cell had the word "YES", then it
would execute a seprate macro. If not, just continue on it merry way.

I have tried the following and several variations:

Sheets("Print Area").Select
Range("BO8:BO8").Select
If BO8 = YES Then Call PrintBatch

What the program has to do is look at the last entry made in a specific
column (hence the use of the Lookup formula in the cell) and if that entry
says "YES", then to execute the sub routine "PrintBatch". I tried using
Frank Kabel's article on "Getting the Last Value in Range", but I seem to
be
stuck on actually using the results of the selected cell and comparing it
to
"YES". Any help would be appreciated. I have also ordered the 2
reference
books on VBA programing and commands noted in another thread, but they are
not due to be delivered until next week.

Thanks again for any help.