maybe this will do what you want

Sub test()
If Not IsError(Range("C1").Value) Then
Select Case Range("C1").Value
Case 1
MsgBox "1"
Case 2
MsgBox "2"
End Select
End If
End Sub

--


Gary Keramidas
Excel 2003


"Luc" wrote in message
...
Title says it all

Thanks,

Luc