Hello,

Just another variant:

Sub testme02()
Dim CPACode As Long

Do
CPACode = CLng(Application.InputBox _
(prompt:="Please enter in the new value " _
& "for the CPA Code.", Type:=1))
Loop While CPACode 999 Or CPACode < 1

ActiveSheet.Range("B5").Value = CPACode
End Sub

Regards,
Bernd