Need Resume and ErrorHandler added to working code

I have created a sub to check the length of text strings in a range of cells and ask the user what length they want the text trimmed to. (It's used for reducing text that you need to enter into non-Excel programs that have a character limit on the input fields).

However I don't have any error handler to deal with a non valid number in the Input Box response.

Could someone please give me the code corrections? (In the code I have commented where I want the Error Handler check and what I need it to check for along with some tentative ideas).

Please Login or Register  to view this content.

Maybe this will help. Type:=1 will only allow numbers

Please Login or Register  to view this content.

Originally Posted by mike7952

Maybe this will help. Type:=1 will only allow numbers

Hey thanks. That enforces the numbers only

Any tips on the rest? (How to Error/Resume if user enters negative numbers or if user enters a number higher than the cell len?)

Solved it. Am posting code below (should anyone else have a use for it). (BTW the first line is commented because it's referring to a project module which isn't included with the code posted below).

One thing I would like to add to it (but not sure if can pull it off) is to make the Cancel button on the InputBox have the effect of a sub exit (so user has the option to abort at any point during the procedure).

Please Login or Register  to view this content.

Like this maybe

Please Login or Register  to view this content.

Originally Posted by mike7952

Like this maybe

Please Login or Register  to view this content.

It was that simple! (Slaps forehead). Thanks Mike.

Please Login or Register  to view this content.