Code need to be shorten up and also include inputbox

HI I have below code which works but not so nice. I change date format in named sheets in different columns. I would like to if the code can be shorten down. And also I would really like to have an input box so I can set the same range in all sheet, depends what I need. now in below example it goes from row 9 to 600 in every sheet. So would like to be able to set this not individual but for all sheets with an input box. If I should use another option its to be able to select the used range, but there can be blanks for sure.

Please have a look here is my long code, hope some can help with that.

Sincerely
Abjac

Please Login or Register  to view this content.

Maybe:

Please Login or Register  to view this content.

HI Nathansav. Yes but its different sheets in your example you mention sheetname. How do I make one code shorter for all sheets and how to be able to set the range in all with an inputbox? Maybe I just don't know what you mean. Please try explain.

thanks

Abjac

HI John this is exactly what I would like to have. But it gave me and error in this below line. Object doesn't support this property or method. I use excel 2003 don't know if that means some. But your code is really what I would love to have. Please have a look thanks

Please Login or Register  to view this content.

Abjac

HI Nathensav . Yes I know that but that means I need to make a code for every sheet, so more or less the same as before?

Thanks
Abjac

HI John this one is really brilliant it works perfect. Thanks allot for this great code.
Thanks to you also nathansav.

Have a nice day both

Sincerely
Abjac

You're welcome. Glad to help out and thanks for the feedback.