Error 424

[mr_baz]

Hi there,

I have this error each time I add a new row.

Here's the code;

Public Function OneCellBlank(ByRef MyRange As Range) As Boolean
Dim X As Range
OneCellBlank = False
For Each X In MyRange
If Trim(X.Value) = "" Then
OneCellBlank = True
Exit Function
End If
Next X
End Function

and the line " For Each X In MyRange " is highlight.

Can someone understand why?

Regards

 

[shg]

It works fine for me in Excel 2003 and 2007.