VBA Routine to Remove Apostrophe from Sheet Names

[corollary]

Running into problems with indirect functions and apostrophe's in a sheet name. have 30 files with ~10 sheets each - maybe 10 of the sheets total have names with an apostrophe in it.

Is there a way to run through the sheet names of a given file and remove certain characters (like, say, an apostrophe)? Or does this one have to be a manual job?

Please let me know if you can help - thanks.

 

[BobUmlas]

Sub Untested()
For each sh in Sheets
Sh.Name = Application.Substitute(sh.Name,"'"," ") ' That's an apostrophe inside twp double-quotes
Next
Activeworkbook.save
End Sub

 

[corollary]

Thanks - appreciate the help.

This solution works, for anyone who may reference in the future.