Здравствулте! bikeski.
будет содержанием ваших перемеююых? Номера как шнуры? Имена месяца? Как они получают заполненными? Для того чтобы найти будний день на дата, вы можете использовать
wkDay = Application.WorksheetFunction.Text (дата, «dddd»)
В этом примере, датой будет в настоящее время дата, поэтому вам было бы нужно заменить его с датой в действительном формате даты.
Во всяком случае, вам определенно не нужны 7 уровней если - Elseif.
приветственные восклицания, teylyn