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


vikrampn wrote:

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)

---
Message posted from http://www.ExcelForum.com/

--

Dave Peterson