error number

[lior03]

hello
the following macro suppose to select an empty cell in a selection.if i choose a range without a empty cell i get an error (number 1004).what could be doen to prevent the error message?.is it possible to tell excel
that if the error number is so $ so then let an msgbox appear?
thanks

Sub clicko()
Selection.SpecialCells(xlCellTypeBlanks).Select
If Err.number = 1004 Then
MsgBox "no cell found"
End If
End Sub

[Bob Phillips]

Sub clicko()
Dim rng As Range
On Error Resume Next
Set rng = Selection.SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If rng Is Nothing Then
MsgBox "no cell found"
Else
rng.Select
End If
End Sub

[lior03]

hello

this macro work perfectley on excel xp at home.it generate an error message on excel 2000 at work. what am i missing here?.
thanks

[johnske]

hello

this macro work perfectley on excel xp at home.it generate an error message on excel 2000 at work. what am i missing here?.
thanksNo problems here (Office 2000, Win98 SE)...

[ALe]

what error?