Simplest way to remove invalid filename characters

[GeneralDisarray]

Hello - I have 2 burning questions about these routines

This SAVE_FILE subroutine here is supposed to save a workbook to a specific directory with a very specific name -- based on the worksheet's data.

To create the name I'm cleaning the entry using another function... i want to remove anything that is not a Letter (A,a,B,b...Z,z) number (0,1,2,...,9) or allowed other characters ("#", "_", "-").

Question: Is there a simple statement within excel VBA to handle this -- seems like there should be a statement like:
IF mid(string,index,1) IS Alphanumeric OR IN("_",...) THEN

As you can see below i'm checking each member of the name string against an array i created in another private function....just seems like a long way around the barn so to speak.

(most of the sub is omitted...the rest is in the attachment for all to view)

Please Login or Register  to view this content.

This is the check-function

Please Login or Register  to view this content.

[TMS]

Maybe this would help?

http://www.codeforexcelandoutlook.co...ate-filenames/

or

http://www.ozgrid.com/forum/showthre...t=42503&page=1

Regards

[tlafferty]

I'd suggest a for next loop, thus:

Please Login or Register  to view this content.

Note: untested...

[GeneralDisarray]

looks like what i need, thank you