Converting Range.value(error)

V

vikrampn

Could some one tell me if this is correct. I am getting a run Time
error on the second line


Dim intNumOfProducts as Integer

intNumOfProducts = CInt(Range("B1").Value)
 
D

Dave Peterson

It looks ok to me, but what's in B1?

maybe:

If IsNumeric(Range("b1").Value) Then
intnumofproducts = CInt(Range("b1").Value)
Else
MsgBox "It's not a number! " & Range("b1").Value
End If
 
Top