So are you looking to do this in VBA? if so you need to put some more code in so that your program know what objects to look at. Start with this
Code:
If Range("A1").Interior.ColorIndex = 4 Then
If Range("A1").value <> "" Then
msgbox "This cell equals nothing and is green."
End If
End If