imput box

[Guest]

have a macro which requires a user to enter a number between 2 values (1 and
100) , is their a way to shorten the imput box field so only allow values
between these figures

 

[papou]

Hello Rich

Dim WhatNumber As Long
While WhatNumber < 1 Or WhatNumber > 100
WhatNumber = Application.InputBox("Input number between 1 and 100",
"Number?", , , , , , 1)
Wend

HTH
Cordially
Pascal