Hi

I have the simple macro below that executes the remaining code if cell p4 is greater than 1.9, else it does nothing.

I however to need to include additional criteria in the if statement. As well the cell p4 check, I would like the code to run only if none of the cell values in the range ("D8:H8") are not less than 1.9 (point x in the code) i.e if cell E8 was 1.5 then the remaining code would not run:

[vba]
sub test
pvalue = Range("p4").Value
If Abs(pvalue) > 1.9 Then
'Point X - and cells d8:h8 do not contain any cells with the a number less than 1.9
Range("N14:N1000").Copy
Range("M14").End(xlToLeft).Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
End If
end sub
[/vba]

I'm assuming this is relatively easy to do?

Also as an optional, it would be good to find out which of the columns/cell in the range ("D8:H8") has a value less than 1.9, e.g maybe as a message box.

Thanks,

XUser