VBA error Procedure too long

J

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

Format cells as date
Select range and press Ctrl+Shift+3 to format cells as date. (Shift 3 is the # sign which sort of looks like a small calendar).
Sort by date Sort by votes
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
 
Upvote 0
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.
 
Upvote 0
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.
 
Upvote 0
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
 
Upvote 0
Solution
You must log in or register to reply here.

Similar threads

K
  • Question
Excel Macro to Save to .pdf not working
Replies
9
Views
290
kpost
K
J
  • Locked
  • Question
Procedure too long error VBA
Replies
2
Views
303
Fluff
Fluff
L
  • Question
Opening link and saving as pdf
Replies
0
Views
396
lizemi
L
N
  • Solved
Modify VBA
Replies
9
Views
365
NVRensburg
N
C
  • Solved
VBA attach PDF to email stopped working
Replies
8
Views
674
FormR
FormR

Forum statistics

Threads
1,214,913
Messages
6,122,207
Members
449,074
Latest member
cancansova

Share this page

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
Back
Top