A null value is not equal to anyother value, not even another null value.
Therefore the relational operators do not work.

You should use the IsNull function.

"Felicity Geronimo" wrote:

I have written the following code but it doesnt work, please can you
help?

Sub CSV_Dept_Checker()

'selects column F
Sheets("Dept").Columns(6).Select

If (Cells.Select < Null) Or (Cells.Select < "Y") Then

MsgBox "Data is formatted correctly"

Else

MsgBox "Incorrect data"

End If

End Sub

Basically all i want to do, is once a file has been creted, run the
above code and I want the code to let me know if the cell contains
anything other that nothing or "Y". If Null or "Y" then give me
message "Data is formatted correctly" if anything else "Incorrect
data"

Why does this not work?

Thanks
Felicity