VBA (Excel) - создание листов

Формулировка задачи:

Помогите решить одну проблему...
Необходимо программно создать новый лист в Excel и назвать его так, как захочет пользователь... но пользователь может ввести что-нибудь неподходящее, к примеру скобки [] и т.п. Тогда Excel выдает ошибку (Run-time error '1004'. Во время переименования листа или диаграммы было введено неправильное имя), и выполнение кода прекращается... Оставшийся код не выполняется... Вобщем получается ерунда... Как программно проверить заранее, что ввел пользователь или поймать эту ошибку?

Решение задачи: «VBA (Excel) - создание листов»

textual
                            Листинг программы 
                        

                            <font color="blue">Set</font> sh = Sheets.Add
<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Goto</font> errh
tryagain:
sheetname = Inputbox(<font color="teal">"Введите название листа"</font>)
sh.<font color="blue">Name</font> = sheetname
<font color="blue">Exit</font> <font color="blue">Sub</font>
errh:
<font color="blue">If</font> Err.Number=<font color="darkblue"><b>1004</b></font> <font color="blue">Then</font> <font color="blue">Resume</font> tryagain
                        