Hi all,

I have a function that checks if a specific cell has a value. If it has
a value, a copy of the workbook is saved and then emailed to a
recipient. Is it possible to check more then one cell before the email
is sent? I want to make sure several cells has a value. Below is the
code I use:

Sub checkEmpty()
Sheets("Sheet1").Activate
Sheets("Sheet1").Range("V11").Select
If IsEmpty(ActiveCell) Then
MsgBox "bla bla bla..."
Else
ChDir "C:\Reports"
ActiveWorkbook.SaveAs Filename:=Range("Y3") & " " &
Range("AB6") & " " & Range("V11") & ".xls"
ActiveWorkbook.SendMail Recipients:="nobody@localhost"
MsgBox "Ok" & vbCr & "Mail sent"
End If
End Sub