для пользы кнопки невыполнения обязательства
vbYesNo + vbQuestion + vbDefaultButton2
-->
MB = MsgBox («последнее обновленное на» & рабочий лист (1).Range («G7»). Значение & Chr$(13) & Chr$(13) & «и вы любят импортировать самое последнее питание данных? », vbYesNo + vbQuestion + vbDefaultButton2, «питание данным по ввоза? ")