Sub ifblank()
If Len(Application.Trim(ActiveCell.offset(5,2))) < 1 Then MsgBox "empty"
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"John in Wembley" wrote in message
...
Hi team

I wish to look at a cell value and take action if empty / blank

If ActiveCell.Offset(5, 2).Value is blankThen MsgBox ...

Ive had no luck with is null or is blank
What simple solution am I missing, Ive trolled the help file (honest!)

Thanks
John