hi Pavel,
missing value means a blank cell? then try this macro:

Sub GetBlankCells()
On Error Resume Next
Set rng = Range(ActiveSheet.UsedRange.Address). _
SpecialCells(xlCellTypeBlanks)
If Err.Number 0 Then
MsgBox "no blanks"
Else
MsgBox "blanks in " & rng.Address
End If
End Sub

bye
stefan


On 20 Mai, 14:08, wrote:
Hi, I would check data table. There are 150 columns about 3600 rows. I
need to check if data field is missing value. If yes, so error message
must be generated. Doesn't anybody know to help me with macro? Thanks
Pavel