Файл с решением
Макросы на VBA с нуля