Доброго времени... В документе: кнопка "сохранить как", названия файла берется из ячейки "В3", сохраняет в ту же директорию что и ".xlsm" с расширением  ".xlsx", но когда в "В3" присутствует точка (Магазин №10 г.Иваново), сохраняет без расширения  ".xlsx" и приходится добавлять в ручную!  Помогите в исправлении макроса. Спасибо.

Скрытый текст
Sub Сохранить_с_преобразованием() Application.DisplayAlerts = False ActiveSheet.Shapes("Button 2").Select Selection.Delete ChDir ThisWorkbook.Path ActiveWorkbook.SaveAs [B3], FileFormat:= _ xlOpenXMLWorkbook Application.DisplayAlerts = False End Sub