Two IF Statements Q
 

I have the following code (partial extract), which I am attempting to
add 2 IF statements, but the 2nd is not returning the required action

O169 = 0
BD1 = 98

Thus I expect the Importance to be set to High, if O169 or BD1 0,
otherwise set to normal

How would I incorporate that into code below? (Currently it is setting
importance to Normal)

Thanks

With OutMail
.To = ThisWorkbook.Sheets("Value").Range("AJ1").Value
.CC = strto
.BCC = ""
.Subject =
ThisWorkbook.Sheets("Values").Range("AJ4").Value
.Body = strbody
.Attachments.Add Destwb.FullName
.ReadReceiptRequested = False
If Sheets("Values").Range("O169").Value 0 Then
.Importance = 2
If Sheets("Values").Range("BD1").Value 0 Then
.Importance = 2
Else
.Importance = 1
End If
End If

Two IF Statements Q
 

..Importance = IIf(Sheets("Values").Range("O169").Value 2 Or
Sheets("Values").Range("BD1").Value 0, 2, 1)

Regards,
Stefi

€žSean€� ezt Ã*rta:

I have the following code (partial extract), which I am attempting to
add 2 IF statements, but the 2nd is not returning the required action

O169 = 0
BD1 = 98

Thus I expect the Importance to be set to High, if O169 or BD1 0,
otherwise set to normal

How would I incorporate that into code below? (Currently it is setting
importance to Normal)

Thanks

With OutMail
.To = ThisWorkbook.Sheets("Value").Range("AJ1").Value
.CC = strto
.BCC = ""
.Subject =
ThisWorkbook.Sheets("Values").Range("AJ4").Value
.Body = strbody
.Attachments.Add Destwb.FullName
.ReadReceiptRequested = False
If Sheets("Values").Range("O169").Value 0 Then
.Importance = 2
If Sheets("Values").Range("BD1").Value 0 Then
.Importance = 2
Else
.Importance = 1
End If
End If

Two IF Statements Q
 

Thanks Stefi, works like a dream

Two IF Statements Q
 

You are welcome! Thanks for the feedback!
Stefi

€žSean€� ezt Ã*rta:

Thanks Stefi, works like a dream