Sub Макрос4()  
'  
' Макрос4 Макрос  
'  
 
'  
   Range( _  
       "H1:I1,R1:S1,H11:I11,R11:S11,H21:I21,R21:S21,H31:I31,R31:S31,H41:I41,R41:S41"). _  
       Select  
   Range("R41").Activate  
   With Selection.Font  
       .Name = "Calibri"  
       .Size = 16  
       .Strikethrough = False  
       .Superscript = False  
       .Subscript = False  
       .OutlineFont = False  
       .Shadow = False  
       .Underline = xlUnderlineStyleNone  
       .ColorIndex = xlAutomatic  
       .TintAndShade = 0  
       .ThemeFont = xlThemeFontNone  
   End With  
   ActiveWindow.SmallScroll Down:=42  
   Range( _  
       "H51:I51,R51:S51,H61:I61,R61:S61,H71:I71,R71:S71,H81:I81,R81:S81,H91:I91,R91:S91" _  
       ).Select  
   Range("R91").Activate  
   With Selection.Font  
       .Name = "Calibri"  
       .Size = 16  
       .Strikethrough = False  
       .Superscript = False  
       .Subscript = False  
       .OutlineFont = False  
       .Shadow = False  
       .Underline = xlUnderlineStyleNone  
       .ColorIndex = xlAutomatic  
       .TintAndShade = 0  
       .ThemeFont = xlThemeFontNone  
   End With  
   ActiveWindow.SmallScroll Down:=51  
   Range( _  
       "H101:I101,R101:S101,H111:I111,R111:S111,H121:I121,R121:S121,H131:I131,R131:S131,H141:I141,R141:S141" _  
       ).Select  
   Range("R141").Activate  
   With Selection.Font  
       .Name = "Calibri"  
       .Size = 16  
       .Strikethrough = False  
       .Superscript = False  
       .Subscript = False  
       .OutlineFont = False  
       .Shadow = False  
       .Underline = xlUnderlineStyleNone  
       .ColorIndex = xlAutomatic  
       .TintAndShade = 0  
       .ThemeFont = xlThemeFontNone  
   End With  
   ActiveWindow.SmallScroll Down:=51  
   Range( _  
       "H151:I151,R151:S151,H161:I161,R161:S161,H171:I171,R171:S171,H181:I181,R181:S181,H191:I191,R191:S191" _  
       ).Select  
   Range("R191").Activate  
   With Selection.Font  
       .Name = "Calibri"  
       .Size = 16  
       .Strikethrough = False  
       .Superscript = False  
       .Subscript = False  
       .OutlineFont = False  
       .Shadow = False  
       .Underline = xlUnderlineStyleNone  
       .ColorIndex = xlAutomatic  
       .TintAndShade = 0  
       .ThemeFont = xlThemeFontNone  
   End With  
   ActiveWindow.SmallScroll Down:=51  
   Range( _  
       "H201:I201,R201:S201,H211:I211,R211:S211,H221:I221,R221:S221,H231:I231,R231:S231,H241:I241,R241:S241" _  
       ).Select  
   Range("R241").Activate  
   With Selection.Font  
       .Name = "Calibri"  
       .Size = 16  
       .Strikethrough = False  
       .Superscript = False  
       .Subscript = False  
       .OutlineFont = False  
       .Shadow = False  
       .Underline = xlUnderlineStyleNone  
       .ColorIndex = xlAutomatic  
       .TintAndShade = 0  
       .ThemeFont = xlThemeFontNone  
   End With  
   ActiveWindow.SmallScroll Down:=51  
   Range( _  
       "H251:I251,R251:S251,H261:I261,R261:S261,H271:I271,R271:S271,H281:I281,R281:S281,H291:I291,R291:S291" _  
       ).Select  
   Range("R291").Activate  
   With Selection.Font  
       .Name = "Calibri"  
       .Size = 16  
       .Strikethrough = False  
       .Superscript = False  
       .Subscript = False  
       .OutlineFont = False  
       .Shadow = False  
       .Underline = xlUnderlineStyleNone  
       .ColorIndex = xlAutomatic  
       .TintAndShade = 0  
       .ThemeFont = xlThemeFontNone  
   End With  
   ActiveWindow.SmallScroll Down:=-276  
End Sub

Приветствую всех!    
Нашел интересующую меня тему:  
http://www.planetaexcel.ru/tip.php?aid=91  
но вот проблема, скрипт берет курс с cbr.ru, а мне нужно с nbrb.by  
попытался исправить сам, но не выходит.  
Вот сайт с курсами:  
http://www.nbrb.by/statistics/Rates/RatesDaily.asp?fromdate=2011.03.22  
Помогите пожалуйста.    
Если можно для USD, EUR, RUR

Подскажите,пожалуйста, имеется форма для печати (ярлыки) 12 шт на странице, каждый на единицу продукции. Как их заполнить автоматически из таблицы с заказом, где в каждом наименовании по несколько шт.