Restrict InputBox to Numbers

[Divad]

I have written some code so that when a button on the word toolbar is pressed it asks you how many pages you want to insert and it works fine. But if you try to enter something other than a number then it comes up with a debug, which it should.

What i want to do is restrict the InputBox to only numbers and have been trying a few things but it doesn't work properly. Is there an easy way to do this? Also can i put a limit on the number that they can enter?

Dim counter
Dim NoOfPages As String
    NoOfPages = InputBox(Prompt:="Enter the number of additional pages you need", _
          Title:="No. of additional pages", Default:="Enter number here")
    If NoOfPages <> "0" & "5" Then
        MsgBox "You can only enter a number in this field"
 
    Else
 
        For counter = 1 To NoOfPages

Thanks in advance

[Nelviticus]

How about:

If Not IsNumeric(NoOfPages) Then

Regards

[Nelviticus]

Or this:

Dim counter As Integer
Dim Pages As Integer
Dim NoOfPages As String
NoOfPages = InputBox(Prompt:="Enter the number of additional pages you need", _
      Title:="No. of additional pages", Default:="Enter number here")
If Not IsNumeric(NoOfPages) Then
   MsgBox "You can only enter a number in this field"
   Else
   Pages = Val(NoOfPages)
   If Pages < 1 Or Pages > 5 Then
      MsgBox "Pages must be between 1 and 5!"
      Else
      For counter = 1 To Pages
         ' Do stuff
      Next
   End If
End If

Regards

[Divad]

You the man

Changed the Dim NoOfPages as you have to String and added in an ElseIf and it works great now. Many Many Thanks.

Dim counter
Dim NoOfPages As String
NoOfPages = InputBox(Prompt:="Enter the number of additional pages you need", _
Title:="No. of additional pages", Default:="Enter number here")
If Not IsNumeric(NoOfPages) Then
   MsgBox "You must enter a numerical value."
   ElseIf NoOfPages > 30 Then
   MsgBox "Only a maximum of 30 additional pages may be added."
   Else
   For counter = 1 To NoOfPages