VBA error Procedure too long

John1989

New Member
Joined
Aug 21, 2017
Messages
22
Hi experts,

I wish to print a excel file by replacing the value in Cell Q2 using the following VBA code. But while running the macro it shows that " Procedure too long" error. Please help me.

VBA Code:
Sub PrintAll()
'
' PrintAll Macro
'
' Keyboard Shortcut: Ctrl+Shift+J
'
 Dim r As Long, i As Long

r = Range("A107:A450").Cells.Count
    Range("Q2") = Range("A107:A450").Cells(1)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\7800_903 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(2)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1003 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(3)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1006 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(4)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1014 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(5)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1018 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(6)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1057 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(7)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1058 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(8)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1306 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(9)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1308 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(10)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1318 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(11)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1342 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(12)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1343 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(13)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1356 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(14)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1427 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(15)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1459 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(16)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1490 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(17)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1535 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(18)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1540 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(19)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1542 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(20)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1567 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(21)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1571 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(22)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1572 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(23)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1577 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(24)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1583 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(25)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1584 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(26)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1811 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(27)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1836 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(28)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1901 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(29)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1926 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(30)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_1928 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(31)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_2923 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(32)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_3001 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(33)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_3259 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(34)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_3315 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(35)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_3970 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(36)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_4036 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(37)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_4047 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(38)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_4064 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(39)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_4520 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(40)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_4861 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(41)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_5616 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(42)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_6249 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(43)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_8500 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(44)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_8825 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(45)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_9058 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(46)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_9160 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(47)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_928 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(48)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_945 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(49)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_946 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(50)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_947 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(51)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8336_967 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(52)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1007 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(53)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1008 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(54)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1009 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(55)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1010 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(56)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1011 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(57)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1012 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(58)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1013 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(59)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1016 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(60)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1019 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(61)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1021 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(62)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1022 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(63)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1093 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(64)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1288 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(65)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1298 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(66)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1312 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(67)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1346 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(68)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1366 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(69)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1428 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(70)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1460 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(71)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1463 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(72)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1495 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(73)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1509 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(74)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1552 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(75)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1598 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(76)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1841 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(77)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_1842 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(78)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_2461 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(79)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_2841 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(80)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_3041 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(81)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_3054 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(82)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_3083 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(83)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_3419 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(84)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_3420 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(85)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_3664 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(86)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_4014 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(87)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_4059 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(88)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_4060 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(89)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_4464 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(90)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_4465 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(91)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_4518 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(92)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_4705 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(93)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_5304 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(94)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_5663 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(95)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_5961 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(96)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_5962 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(97)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_6008 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(98)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_6115 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(99)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_8629 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(100)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_8714 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(101)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_9095 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(102)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8337_968 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(103)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_1201 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(104)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_1202 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(105)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_1203 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(106)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_1209 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(107)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_1216 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(108)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_1221 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(109)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_1231 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(110)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_1261 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(111)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_1278 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(112)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_1355 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(113)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_1416 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(114)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_1570 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(115)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_1772 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(116)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_1773 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(117)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_1854 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(118)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_2340 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(119)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_2803 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(120)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_2863 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(121)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_3040 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(122)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_3042 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(123)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_3048 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(124)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_3260 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(125)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_3330 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(126)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_3543 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(127)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_3623 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(128)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_3731 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(129)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_3732 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(130)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_3986 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(131)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_3988 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(132)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_4045 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(133)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_4112 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(134)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_4521 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(135)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_4654 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(136)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_4657 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(137)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_4681 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(138)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_4684 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(139)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_4686 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(140)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_5022 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(141)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_5023 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(142)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_5024 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(143)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_5157 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(144)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_5235 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(145)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_5412 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(146)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_5788 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(147)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_5789 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(148)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_6051 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(149)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_6183 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(150)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_6719 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(151)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_8543 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(152)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_8820 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(153)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_8835 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(154)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_9106 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(155)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_958 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(156)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8338_978 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(157)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_1002 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(158)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_1004 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(159)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_1005 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(160)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_1017 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(161)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_1020 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(162)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_1023 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(163)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_1055 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(164)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_1059 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(165)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_1094 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(166)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_1345 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(167)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_1349 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(168)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_1533 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(169)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_1840 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(170)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_3339 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(171)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_3861 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(172)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_3972 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(173)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_4010 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(174)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_4016 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(175)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_4466 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(176)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_4562 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(177)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_4635 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(178)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_4693 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(179)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_4742 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(180)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_4743 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(181)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8339_9110 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(182)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_1051 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(183)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_1052 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(184)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_1102 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(185)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_1103 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(186)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_1105 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(187)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_1107 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(188)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_1113 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(189)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_1117 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(190)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_1121 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(191)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_1123 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(192)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_1124 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(193)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_1125 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(194)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_1275 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(195)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_1284 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(196)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_1823 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(197)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_1900 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(198)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_1925 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(199)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_2780 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(200)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_2808 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(201)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_3088 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(202)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_3612 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(203)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_3754 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(204)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_3755 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(205)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_3756 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(206)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_4058 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(207)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_4146 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(208)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_5041 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(209)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_5042 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(210)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_5399 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(211)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_5410 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(212)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_5685 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(213)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_6401 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(214)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_8501 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(215)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_8508 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(216)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_901 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(217)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_902 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(218)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_9112 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(219)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_919 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(220)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_920 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(221)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_921 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(222)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_922 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(223)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_924 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(224)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_9243 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(225)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8340_957 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(226)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1026 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(227)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1054 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(228)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1101 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(229)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1106 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(230)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1108 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(231)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1109 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(232)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1110 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(233)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1111 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(234)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1112 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(235)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1114 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(236)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1115 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(237)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1116 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(238)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1119 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(239)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1120 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(240)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1122 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(241)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1126 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(242)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1127 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(243)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1130 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(244)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1132 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(245)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1264 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(246)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1265 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(247)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1276 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(248)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1506 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(249)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1557 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(250)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1643 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(251)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1693 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(252)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_1822 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(253)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_2397 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(254)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_2404 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(255)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_2750 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(256)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_2792 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(257)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_2952 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(258)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_2998 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(259)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_3295 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(260)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_3325 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(261)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_3613 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(262)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_3656 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(263)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_3657 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(264)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_3658 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(265)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_3753 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(266)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_4015 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(267)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_4124 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(268)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_4264 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(269)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_4868 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(270)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_6024 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(271)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_6210 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(272)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_6402 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(273)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_8503 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(274)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_8590 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(275)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_8656 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(276)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_9113 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(277)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_923 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(278)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_956 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(279)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_960 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(280)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_961 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(281)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_962 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(282)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8341_965 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(283)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1050 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(284)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1214 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(285)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1222 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(286)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1223 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(287)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1224 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(288)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1227 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(289)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1249 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(290)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1263 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(291)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1274 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(292)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1285 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(293)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1289 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(294)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1344 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(295)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1505 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(296)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1543 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(297)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1582 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(298)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1611 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(299)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1615 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(300)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1616 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(301)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1777 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(302)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1778 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(303)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_1788 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(304)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_2627 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(305)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_2640 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(306)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_2755 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(307)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_2895 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(308)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_2963 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(309)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_2997 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(310)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_3311 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(311)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_3314 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(312)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_3440 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(313)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_3466 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(314)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_3542 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(315)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_3621 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(316)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_4037 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(317)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_4519 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(318)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_4522 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(319)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_4653 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(320)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_4683 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(321)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_4685 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(322)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_4794 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(323)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_4795 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(324)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_5233 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(325)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_5234 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(326)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_5541 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(327)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_5705 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(328)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_5863 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(329)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_5864 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(330)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_5865 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(331)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_6013 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(332)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_6052 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(333)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_6256 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(334)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_734 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(335)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_763 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(336)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_8434 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(337)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_8442 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(338)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_8449 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(339)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_8538 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(340)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_8605 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(341)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_900 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(342)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_963 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(343)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_964 " & ActiveSheet.Name & ".pdf"
    Range("Q2") = Range("A107:A450").Cells(344)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_990 " & ActiveSheet.Name & ".pdf"

End Sub
 
Last edited by a moderator:

Excel Facts

How to create a cell-sized chart?
Tiny charts, called Sparklines, were added to Excel 2010. Look for Sparklines on the Insert tab.

steve the fish

Well-known Member
Joined
Oct 20, 2009
Messages
8,750
Office Version
  1. 365
Platform
  1. Windows
Presuming the pdf gets created as you want then just use a loop:

VBA Code:
Sub LoopingThroughRange()

For Each c In Range("A107:A450")
    Range("Q2").Value = c.Value
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\8342_2963 " & ActiveSheet.Name & ".pdf"
Next

End Sub
 

John1989

New Member
Joined
Aug 21, 2017
Messages
22
Hi this prints only one file. I would like to print several continuously by replacing the value in Cell Q2 using range of A107:A450 and also different name for the file. Please help me.
 

steve the fish

Well-known Member
Joined
Oct 20, 2009
Messages
8,750
Office Version
  1. 365
Platform
  1. Windows
Ok lets take the first one. Why is '7800_903' used? Is it anywhere in the sheet? Just need to get the macro to change that each time which will be possible hopefully without hard coding it.
 

John1989

New Member
Joined
Aug 21, 2017
Messages
22
Yes. 7800_903 is there in cell Y2.
 

steve the fish

Well-known Member
Joined
Oct 20, 2009
Messages
8,750
Office Version
  1. 365
Platform
  1. Windows
Ok try:

VBA Code:
 Sub LoopingThroughRange()

For Each c In Range("A107:A450")
Range("Q2").Value = c.Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\1.johnson\Johnson\Macro\" & c.Offset(0, 24).Value & " " & ActiveSheet.Name & ".pdf"
Next

End Sub
 
Solution

Forum statistics

Threads
1,176,091
Messages
5,901,363
Members
434,887
Latest member
zoath

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top