Does column 7 contain and formulas or data?
If you want to use a formula you can use
=IF(MID(CELL("format",E1),1,1)<>"D","WARNING","")
or you can just use that in a macro..
WARNING!: If the cells are formatted with the date format but are empty, it will not show a warning.
NOTE: A word of warning. I tried to change the format of the reference cell to see if the formula updated. It didn't I have to double-click in the cell and hit enter (basically like re-entering it) for it to return the right value.
Macro?: Try this reworking this macro, I haven't got this part to work,
If CELL("format",E & i & ),1,1)<> "D" Then
not sure how to write that code, hopefully you do. If so, post it back here so that I can learn something
If CELL("format",E & i & ),1,1)<> "D" Then
Sub Warning()
For i = 1 To 10
If CELL("format",E & i & ),1,1)<> "D" Then
Range("G" & i).Value = "Warning"
End If
End Sub
This message was edited by Cosmos75 on 2002-04-10 11:39