elsuji
12-20-2019, 12:24 PM
Deat Team,
When i run my program i am getting error message that "Compile error. Procedure too large "
My code is here
Sub Calibration_Certificate_Print_withLOGO()
Dim a1, b1, cx1, dx1, aa1, bb1, cc1, dd1, e1, ee1, f1, ff1, g1, gg1, h1, hh1, i, pdf As String
Dim a2, b2, cx2, dx2, aa2, bb2, cc2, dd2, e2, ee2, f2, ff2, g2, gg2, h2, hh2, i2, ii2, j2, jj2, k2, kk2, l2, ll2
Dim a3, b3, cx3, dx3, aa3, bb3, cc3, dd3, e3, ee3, f3, ff3, g3, gg3, h3, hh3, i3, ii3, j3, jj3, k3, kk3, l3, ll3
Dim a4, b4, cx4, dx4, aa4, bb4, cc4, dd4, e4, ee4, f4, ff4, g4, gg4, h4, hh4, i4, ii4, j4, jj4, k4, kk4, l4, ll4
Dim a5, b5, cx5, dx5, aa5, bb5, cc5, dd5, e5, ee5, f5, ff5, g5, gg5, h5, hh5, i5, i55, j5, jj5, k5, kk5, l5, ll5
Dim a6, b6, cx6, dx6, aa6, bb6, cc6, dd6, e6, ee6, f6, ff6, g6, gg6, h6, hh6, i6, ii6, j6, jj6, k6, kk6, l6, ll6
Dim c As Range, rng As Range, c1 As Range, rng1 As Range, c2 As Range, rng2 As Range, c3 As Range, rng3 As Range, c4 As Range, rng4 As Range
Dim counter As Long, counter1 As Long, counter2 As Long, counter3 As Long, counter4 As Long
a1 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "CP18")
cx1 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "CP18")
b1 = Array("Sheet1", "Sheet2", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "CP18")
dx1 = Array("Sheet1", "Sheet2a", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "CP18")
e1 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "CP18")
f1 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "CP18")
g1 = Array("Sheet1", "Sheet2", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "CP18")
h1 = Array("Sheet1", "Sheet2a", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "CP18")
a2 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "CP30")
cx2 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "CP30")
b2 = Array("Sheet1", "Sheet2", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "CP30")
dx2 = Array("Sheet1", "Sheet2a", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "CP30")
e2 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "CP30")
f2 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "CP30")
g2 = Array("Sheet1", "Sheet2", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "CP30")
h2 = Array("Sheet1", "Sheet2a", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "CP30")
i2 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "Sheet11", "CP30")
j2 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "Sheet11", "CP30")
k2 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "Sheet11", "CP30")
l2 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "Sheet11", "CP30")
a3 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "CP45")
cx3 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "CP45")
b3 = Array("Sheet1", "Sheet2", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "CP45")
dx3 = Array("Sheet1", "Sheet2a", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "CP45")
e3 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "CP45")
f3 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "CP45")
g3 = Array("Sheet1", "Sheet2", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "CP45")
h3 = Array("Sheet1", "Sheet2a", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "CP45")
i3 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "Sheet11", "CP45")
j3 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "Sheet11", "CP45")
k3 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "Sheet11", "CP45")
l3 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "Sheet11", "CP45")
a4 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "M1")
cx4 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "M1")
b4 = Array("Sheet1", "Sheet2", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "M1")
dx4 = Array("Sheet1", "Sheet2a", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "M1")
e4 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "M1")
f4 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "M1")
g4 = Array("Sheet1", "Sheet2", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "M1")
h4 = Array("Sheet1", "Sheet2a", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "M1")
i4 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "Sheet11", "M1")
j4 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "Sheet11", "M1")
k4 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "Sheet11", "M1")
l4 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "Sheet11", "M1")
a5 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "M1.25")
cx5 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "M1.25")
b5 = Array("Sheet1", "Sheet2", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "M1.25")
dx5 = Array("Sheet1", "Sheet2a", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "M1.25")
e5 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "M1.25")
f5 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "M1.25")
g5 = Array("Sheet1", "Sheet2", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "M1.25")
h5 = Array("Sheet1", "Sheet2a", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "M1.25")
i5 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "Sheet11", "M1.25")
j5 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "Sheet11", "M1.25")
k5 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "Sheet11", "M1.25")
l5 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "Sheet11", "M1.25")
a6 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "H3")
cx6 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "H3")
b6 = Array("Sheet1", "Sheet2", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "H3")
dx6 = Array("Sheet1", "Sheet2a", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "H3")
e6 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "H3")
f6 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "H3")
g6 = Array("Sheet1", "Sheet2", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "H3")
h6 = Array("Sheet1", "Sheet2a", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "H3")
i6 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "Sheet11", "H3")
j6 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "Sheet11", "H3")
k6 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "Sheet11", "H3")
l6 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "Sheet11", "H3")
pdf = ThisWorkbook.FullName
'Get sheet's visible property, and set to xlSheetVisible
aa1 = a1
For i = 0 To UBound(a1)
aa1(i) = Worksheets(a1(i)).Visible
Worksheets(a1(i)).Visible = xlSheetVisible
Next i
bb1 = b1
For i = 0 To UBound(b1)
bb1(i) = Worksheets(b1(i)).Visible
Worksheets(b1(i)).Visible = xlSheetVisible
Next i
cc1 = cx1
For i = 0 To UBound(cx1)
cc1(i) = Worksheets(cx1(i)).Visible
Worksheets(cx1(i)).Visible = xlSheetVisible
Next i
dd1 = dx1
For i = 0 To UBound(dx1)
dd1(i) = Worksheets(dx1(i)).Visible
Worksheets(dx1(i)).Visible = xlSheetVisible
Next i
ee1 = e1
For i = 0 To UBound(e1)
ee1(i) = Worksheets(e1(i)).Visible
Worksheets(e1(i)).Visible = xlSheetVisible
Next i
ff1 = f1
For i = 0 To UBound(f1)
ff1(i) = Worksheets(f1(i)).Visible
Worksheets(f1(i)).Visible = xlSheetVisible
Next i
gg1 = g1
For i = 0 To UBound(g1)
gg1(i) = Worksheets(g1(i)).Visible
Worksheets(g1(i)).Visible = xlSheetVisible
Next i
hh1 = h1
For i = 0 To UBound(h1)
hh1(i) = Worksheets(h1(i)).Visible
Worksheets(h1(i)).Visible = xlSheetVisible
Next i
aa2 = a2
For i = 0 To UBound(a2)
aa2(i) = Worksheets(a2(i)).Visible
Worksheets(a2(i)).Visible = xlSheetVisible
Next i
bb2 = b2
For i = 0 To UBound(b2)
bb2(i) = Worksheets(b2(i)).Visible
Worksheets(b2(i)).Visible = xlSheetVisible
Next i
cc2 = cx2
For i = 0 To UBound(cx2)
cc2(i) = Worksheets(cx2(i)).Visible
Worksheets(cx2(i)).Visible = xlSheetVisible
Next i
dd2 = dx2
For i = 0 To UBound(dx2)
dd2(i) = Worksheets(dx2(i)).Visible
Worksheets(dx2(i)).Visible = xlSheetVisible
Next i
ee2 = e2
For i = 0 To UBound(e2)
ee2(i) = Worksheets(e2(i)).Visible
Worksheets(e2(i)).Visible = xlSheetVisible
Next i
ff2 = f2
For i = 0 To UBound(f2)
ff2(i) = Worksheets(f2(i)).Visible
Worksheets(f2(i)).Visible = xlSheetVisible
Next i
gg2 = g2
For i = 0 To UBound(g2)
gg2(i) = Worksheets(g2(i)).Visible
Worksheets(g2(i)).Visible = xlSheetVisible
Next i
hh2 = h2
For i = 0 To UBound(h2)
hh2(i) = Worksheets(h2(i)).Visible
Worksheets(h2(i)).Visible = xlSheetVisible
Next i
ii2 = i2
For i = 0 To UBound(i2)
ii2(i) = Worksheets(i2(i)).Visible
Worksheets(i2(i)).Visible = xlSheetVisible
Next i
jj2 = j2
For i = 0 To UBound(j2)
jj2(i) = Worksheets(j2(i)).Visible
Worksheets(j2(i)).Visible = xlSheetVisible
Next i
kk2 = k2
For i = 0 To UBound(k2)
kk2(i) = Worksheets(k2(i)).Visible
Worksheets(k2(i)).Visible = xlSheetVisible
Next i
ll2 = l2
For i = 0 To UBound(l2)
ll2(i) = Worksheets(l2(i)).Visible
Worksheets(l2(i)).Visible = xlSheetVisible
Next i
aa3 = a3
For i = 0 To UBound(a3)
aa3(i) = Worksheets(a3(i)).Visible
Worksheets(a3(i)).Visible = xlSheetVisible
Next i
bb3 = b3
For i = 0 To UBound(b3)
bb3(i) = Worksheets(b3(i)).Visible
Worksheets(b3(i)).Visible = xlSheetVisible
Next i
cc3 = cx3
For i = 0 To UBound(cx3)
cc3(i) = Worksheets(cx3(i)).Visible
Worksheets(cx3(i)).Visible = xlSheetVisible
Next i
dd3 = dx3
For i = 0 To UBound(dx3)
dd3(i) = Worksheets(dx3(i)).Visible
Worksheets(dx3(i)).Visible = xlSheetVisible
Next i
ee3 = e3
For i = 0 To UBound(e3)
ee3(i) = Worksheets(e3(i)).Visible
Worksheets(e3(i)).Visible = xlSheetVisible
Next i
ff3 = f3
For i = 0 To UBound(f3)
ff3(i) = Worksheets(f3(i)).Visible
Worksheets(f3(i)).Visible = xlSheetVisible
Next i
gg3 = g3
For i = 0 To UBound(g3)
gg3(i) = Worksheets(g3(i)).Visible
Worksheets(g3(i)).Visible = xlSheetVisible
Next i
hh3 = h3
For i = 0 To UBound(h3)
hh3(i) = Worksheets(h3(i)).Visible
Worksheets(h3(i)).Visible = xlSheetVisible
Next i
ii3 = i3
For i = 0 To UBound(i3)
ii3(i) = Worksheets(i3(i)).Visible
Worksheets(i3(i)).Visible = xlSheetVisible
Next i
jj3 = j3
For i = 0 To UBound(j3)
jj3(i) = Worksheets(j3(i)).Visible
Worksheets(j3(i)).Visible = xlSheetVisible
Next i
kk3 = k3
For i = 0 To UBound(k3)
kk3(i) = Worksheets(k3(i)).Visible
Worksheets(k3(i)).Visible = xlSheetVisible
Next i
ll3 = l3
For i = 0 To UBound(l3)
ll3(i) = Worksheets(l3(i)).Visible
Worksheets(l3(i)).Visible = xlSheetVisible
Next i
aa4 = a4
For i = 0 To UBound(a4)
aa4(i) = Worksheets(a4(i)).Visible
Worksheets(a4(i)).Visible = xlSheetVisible
Next i
bb4 = b4
For i = 0 To UBound(b4)
bb4(i) = Worksheets(b4(i)).Visible
Worksheets(b4(i)).Visible = xlSheetVisible
Next i
cc4 = cx4
For i = 0 To UBound(cx4)
cc4(i) = Worksheets(cx4(i)).Visible
Worksheets(cx4(i)).Visible = xlSheetVisible
Next i
dd4 = dx4
For i = 0 To UBound(dx4)
dd4(i) = Worksheets(dx4(i)).Visible
Worksheets(dx4(i)).Visible = xlSheetVisible
Next i
ee4 = e4
For i = 0 To UBound(e4)
ee4(i) = Worksheets(e4(i)).Visible
Worksheets(e4(i)).Visible = xlSheetVisible
Next i
ff4 = f4
For i = 0 To UBound(f4)
ff4(i) = Worksheets(f4(i)).Visible
Worksheets(f4(i)).Visible = xlSheetVisible
Next i
gg4 = g4
For i = 0 To UBound(g4)
gg4(i) = Worksheets(g4(i)).Visible
Worksheets(g4(i)).Visible = xlSheetVisible
Next i
hh4 = h4
For i = 0 To UBound(h4)
hh4(i) = Worksheets(h4(i)).Visible
Worksheets(h4(i)).Visible = xlSheetVisible
Next i
ii4 = i4
For i = 0 To UBound(i4)
ii4(i) = Worksheets(i4(i)).Visible
Worksheets(i4(i)).Visible = xlSheetVisible
Next i
jj4 = j4
For i = 0 To UBound(j4)
jj4(i) = Worksheets(j4(i)).Visible
Worksheets(j4(i)).Visible = xlSheetVisible
Next i
kk4 = k4
For i = 0 To UBound(k4)
kk4(i) = Worksheets(k4(i)).Visible
Worksheets(k4(i)).Visible = xlSheetVisible
Next i
ll4 = l4
For i = 0 To UBound(l4)
ll4(i) = Worksheets(l4(i)).Visible
Worksheets(l4(i)).Visible = xlSheetVisible
Next i
aa5 = a5
For i = 0 To UBound(a5)
aa5(i) = Worksheets(a5(i)).Visible
Worksheets(a5(i)).Visible = xlSheetVisible
Next i
bb5 = b5
For i = 0 To UBound(b5)
bb5(i) = Worksheets(b5(i)).Visible
Worksheets(b5(i)).Visible = xlSheetVisible
Next i
cc5 = cx5
For i = 0 To UBound(cx5)
cc5(i) = Worksheets(cx5(i)).Visible
Worksheets(cx5(i)).Visible = xlSheetVisible
Next i
dd5 = dx5
For i = 0 To UBound(dx5)
dd5(i) = Worksheets(dx5(i)).Visible
Worksheets(dx5(i)).Visible = xlSheetVisible
Next i
ee5 = e5
For i = 0 To UBound(e5)
ee5(i) = Worksheets(e5(i)).Visible
Worksheets(e5(i)).Visible = xlSheetVisible
Next i
ff5 = f5
For i = 0 To UBound(f5)
ff5(i) = Worksheets(f5(i)).Visible
Worksheets(f5(i)).Visible = xlSheetVisible
Next i
gg5 = g5
For i = 0 To UBound(g5)
gg5(i) = Worksheets(g5(i)).Visible
Worksheets(g5(i)).Visible = xlSheetVisible
Next i
hh5 = h5
For i = 0 To UBound(h5)
hh5(i) = Worksheets(h5(i)).Visible
Worksheets(h5(i)).Visible = xlSheetVisible
Next i
ii5 = i5
For i = 0 To UBound(i5)
ii5(i) = Worksheets(i5(i)).Visible
Worksheets(i5(i)).Visible = xlSheetVisible
Next i
jj5 = j5
For i = 0 To UBound(j5)
jj5(i) = Worksheets(j5(i)).Visible
Worksheets(j5(i)).Visible = xlSheetVisible
Next i
kk5 = k5
For i = 0 To UBound(k5)
kk5(i) = Worksheets(k5(i)).Visible
Worksheets(k5(i)).Visible = xlSheetVisible
Next i
ll5 = l5
For i = 0 To UBound(l5)
ll5(i) = Worksheets(l5(i)).Visible
Worksheets(l5(i)).Visible = xlSheetVisible
Next i
aa6 = a6
For i = 0 To UBound(a6)
aa6(i) = Worksheets(a6(i)).Visible
Worksheets(a6(i)).Visible = xlSheetVisible
Next i
bb6 = b6
For i = 0 To UBound(b6)
bb6(i) = Worksheets(b6(i)).Visible
Worksheets(b6(i)).Visible = xlSheetVisible
Next i
cc6 = cx6
For i = 0 To UBound(cx6)
cc6(i) = Worksheets(cx6(i)).Visible
Worksheets(cx6(i)).Visible = xlSheetVisible
Next i
dd6 = dx6
For i = 0 To UBound(dx6)
dd6(i) = Worksheets(dx6(i)).Visible
Worksheets(dx6(i)).Visible = xlSheetVisible
Next i
ee6 = e6
For i = 0 To UBound(e6)
ee6(i) = Worksheets(ee6(i)).Visible
Worksheets(e6(i)).Visible = xlSheetVisible
Next i
ff6 = f6
For i = 0 To UBound(f6)
ff6(i) = Worksheets(f6(i)).Visible
Worksheets(f6(i)).Visible = xlSheetVisible
Next i
gg6 = g6
For i = 0 To UBound(g6)
gg6(i) = Worksheets(g6(i)).Visible
Worksheets(g6(i)).Visible = xlSheetVisible
Next i
hh6 = h6
For i = 0 To UBound(h6)
hh6(i) = Worksheets(h6(i)).Visible
Worksheets(h6(i)).Visible = xlSheetVisible
Next i
ii6 = i6
For i = 0 To UBound(i6)
ii6(i) = Worksheets(i6(i)).Visible
Worksheets(i6(i)).Visible = xlSheetVisible
Next i
jj6 = j6
For i = 0 To UBound(j6)
jj6(i) = Worksheets(j6(i)).Visible
Worksheets(j6(i)).Visible = xlSheetVisible
Next i
kk6 = k6
For i = 0 To UBound(k6)
kk6(i) = Worksheets(k6(i)).Visible
Worksheets(k6(i)).Visible = xlSheetVisible
Next i
ll6 = l6
For i = 0 To UBound(l6)
ll6(i) = Worksheets(l6(i)).Visible
Worksheets(l6(i)).Visible = xlSheetVisible
Next i
Set rng = Sheets("Data").Range("H34:H749")
For Each c In rng
If c = "Value is exceed more than ±0.25% of weigher max value" Then counter = counter + 1
Next c
If counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP18" Or Sheets("Data").Range("C9").Value = "CP18 TM" Or Sheets("Data").Range("C9").Value = "CP21" Or Sheets("Data").Range("C9").Value = "M21Z" Or Sheets("Data").Range("C9").Value = "M25Z") Then
Sheets(a1).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP18" Or Sheets("Data").Range("C9").Value = "CP18 TM" Or Sheets("Data").Range("C9").Value = "CP21" Or Sheets("Data").Range("C9").Value = "M21Z" Or Sheets("Data").Range("C9").Value = "M25Z") Then
Sheets(b1).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP18" Or Sheets("Data").Range("C9").Value = "CP18 TM" Or Sheets("Data").Range("C9").Value = "CP21" Or Sheets("Data").Range("C9").Value = "M21Z" Or Sheets("Data").Range("C9").Value = "M25Z") Then
Sheets(cx1).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP18" Or Sheets("Data").Range("C9").Value = "CP18 TM" Or Sheets("Data").Range("C9").Value = "CP21" Or Sheets("Data").Range("C9").Value = "M21Z" Or Sheets("Data").Range("C9").Value = "M25Z") Then
Sheets(dx1).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP18" Or Sheets("Data").Range("C9").Value = "CP18 TM" Or Sheets("Data").Range("C9").Value = "CP21" Or Sheets("Data").Range("C9").Value = "M21Z" Or Sheets("Data").Range("C9").Value = "M25Z") Then
Sheets(e1).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP18" Or Sheets("Data").Range("C9").Value = "CP18 TM" Or Sheets("Data").Range("C9").Value = "CP21" Or Sheets("Data").Range("C9").Value = "M21Z" Or Sheets("Data").Range("C9").Value = "M25Z") Then
Sheets(g1).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP18" Or Sheets("Data").Range("C9").Value = "CP18 TM" Or Sheets("Data").Range("C9").Value = "CP21" Or Sheets("Data").Range("C9").Value = "M21Z" Or Sheets("Data").Range("C9").Value = "M25Z") Then
Sheets(f1).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP18" Or Sheets("Data").Range("C9").Value = "CP18 TM" Or Sheets("Data").Range("C9").Value = "CP21" Or Sheets("Data").Range("C9").Value = "M21Z" Or Sheets("Data").Range("C9").Value = "M25Z") Then
Sheets(h1).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(a2).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(b2).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(cx2).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(dx2).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(e2).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(g2).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(f2).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(h2).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(i2).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(j2).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(k2).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(l2).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(a3).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(b3).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(cx3).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(dx3).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(e3).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(g3).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(f3).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(h3).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(i3).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(j3).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(k3).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(l3).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(a4).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(b4).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(cx4).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(dx4).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(e4).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(g4).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(f4).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(h4).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(i4).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(j4).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(k4).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(l4).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(a5).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(b5).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(cx5).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(dx5).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(e5).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(g5).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(f5).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(h5).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(i5).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(j5).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(k5).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(l5).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(a6).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(b6).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(cx6).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(dx6).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(e6).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(g6).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(f6).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(h6).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(i6).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(j6).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(k6).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(l6).Select
End If
ActiveSheet.ExportAsFixedFormat xlTypePDF, pdf, xlQualityStandard, True, False, , , True
Sheets(1).Select 'ungroup sheets
'After export hide sheets
For i = 0 To UBound(a1)
Worksheets(a1(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(b1)
Worksheets(b1(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(cx1)
Worksheets(cx1(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(dx1)
Worksheets(dx1(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(a2)
Worksheets(a2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(b2)
Worksheets(b2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(cx2)
Worksheets(cx2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(dx2)
Worksheets(dx2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(a3)
Worksheets(a3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(b3)
Worksheets(b3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(cx3)
Worksheets(cx3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(dx3)
Worksheets(dx3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(a4)
Worksheets(a4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(b4)
Worksheets(b4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(cx4)
Worksheets(cx4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(dx4)
Worksheets(dx4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(a5)
Worksheets(a5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(b5)
Worksheets(b5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(cx5)
Worksheets(cx5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(dx5)
Worksheets(dx5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(a6)
Worksheets(a6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(b6)
Worksheets(b6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(e1)
Worksheets(e1(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(cx6)
Worksheets(cx6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(dx6)
Worksheets(dx6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(e2)
Worksheets(e2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(e3)
Worksheets(e3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(e4)
Worksheets(e4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(e5)
Worksheets(e5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(e6)
Worksheets(e6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(f1)
Worksheets(f1(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(f2)
Worksheets(f2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(f3)
Worksheets(f3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(f4)
Worksheets(f4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(f5)
Worksheets(f5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(f6)
Worksheets(f6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(g1)
Worksheets(g1(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(g2)
Worksheets(g2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(g3)
Worksheets(g3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(g4)
Worksheets(g4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(g5)
Worksheets(g5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(g6)
Worksheets(g6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(h1)
Worksheets(h1(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(h2)
Worksheets(h2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(h3)
Worksheets(h3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(h4)
Worksheets(h4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(h5)
Worksheets(h5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(h6)
Worksheets(h6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(i2)
Worksheets(i2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(i3)
Worksheets(i3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(i4)
Worksheets(i4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(i5)
Worksheets(i5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(i6)
Worksheets(i6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(j2)
Worksheets(j2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(j3)
Worksheets(j3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(j4)
Worksheets(j4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(j5)
Worksheets(j5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(j6)
Worksheets(j6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(k2)
Worksheets(k2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(k3)
Worksheets(k3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(k4)
Worksheets(k4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(k5)
Worksheets(k5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(k6)
Worksheets(k6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(l2)
Worksheets(l2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(l3)
Worksheets(l3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(l4)
Worksheets(l4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(l5)
Worksheets(l5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(l6)
Worksheets(l6(i)).Visible = xlSheetVisible
Next i
End Sub
Can any one please help me to short out this error
When i run my program i am getting error message that "Compile error. Procedure too large "
My code is here
Sub Calibration_Certificate_Print_withLOGO()
Dim a1, b1, cx1, dx1, aa1, bb1, cc1, dd1, e1, ee1, f1, ff1, g1, gg1, h1, hh1, i, pdf As String
Dim a2, b2, cx2, dx2, aa2, bb2, cc2, dd2, e2, ee2, f2, ff2, g2, gg2, h2, hh2, i2, ii2, j2, jj2, k2, kk2, l2, ll2
Dim a3, b3, cx3, dx3, aa3, bb3, cc3, dd3, e3, ee3, f3, ff3, g3, gg3, h3, hh3, i3, ii3, j3, jj3, k3, kk3, l3, ll3
Dim a4, b4, cx4, dx4, aa4, bb4, cc4, dd4, e4, ee4, f4, ff4, g4, gg4, h4, hh4, i4, ii4, j4, jj4, k4, kk4, l4, ll4
Dim a5, b5, cx5, dx5, aa5, bb5, cc5, dd5, e5, ee5, f5, ff5, g5, gg5, h5, hh5, i5, i55, j5, jj5, k5, kk5, l5, ll5
Dim a6, b6, cx6, dx6, aa6, bb6, cc6, dd6, e6, ee6, f6, ff6, g6, gg6, h6, hh6, i6, ii6, j6, jj6, k6, kk6, l6, ll6
Dim c As Range, rng As Range, c1 As Range, rng1 As Range, c2 As Range, rng2 As Range, c3 As Range, rng3 As Range, c4 As Range, rng4 As Range
Dim counter As Long, counter1 As Long, counter2 As Long, counter3 As Long, counter4 As Long
a1 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "CP18")
cx1 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "CP18")
b1 = Array("Sheet1", "Sheet2", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "CP18")
dx1 = Array("Sheet1", "Sheet2a", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "CP18")
e1 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "CP18")
f1 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "CP18")
g1 = Array("Sheet1", "Sheet2", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "CP18")
h1 = Array("Sheet1", "Sheet2a", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "CP18")
a2 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "CP30")
cx2 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "CP30")
b2 = Array("Sheet1", "Sheet2", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "CP30")
dx2 = Array("Sheet1", "Sheet2a", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "CP30")
e2 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "CP30")
f2 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "CP30")
g2 = Array("Sheet1", "Sheet2", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "CP30")
h2 = Array("Sheet1", "Sheet2a", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "CP30")
i2 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "Sheet11", "CP30")
j2 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "Sheet11", "CP30")
k2 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "Sheet11", "CP30")
l2 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "Sheet11", "CP30")
a3 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "CP45")
cx3 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "CP45")
b3 = Array("Sheet1", "Sheet2", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "CP45")
dx3 = Array("Sheet1", "Sheet2a", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "CP45")
e3 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "CP45")
f3 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "CP45")
g3 = Array("Sheet1", "Sheet2", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "CP45")
h3 = Array("Sheet1", "Sheet2a", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "CP45")
i3 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "Sheet11", "CP45")
j3 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "Sheet11", "CP45")
k3 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "Sheet11", "CP45")
l3 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "Sheet11", "CP45")
a4 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "M1")
cx4 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "M1")
b4 = Array("Sheet1", "Sheet2", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "M1")
dx4 = Array("Sheet1", "Sheet2a", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "M1")
e4 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "M1")
f4 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "M1")
g4 = Array("Sheet1", "Sheet2", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "M1")
h4 = Array("Sheet1", "Sheet2a", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "M1")
i4 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "Sheet11", "M1")
j4 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "Sheet11", "M1")
k4 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "Sheet11", "M1")
l4 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "Sheet11", "M1")
a5 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "M1.25")
cx5 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "M1.25")
b5 = Array("Sheet1", "Sheet2", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "M1.25")
dx5 = Array("Sheet1", "Sheet2a", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "M1.25")
e5 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "M1.25")
f5 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "M1.25")
g5 = Array("Sheet1", "Sheet2", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "M1.25")
h5 = Array("Sheet1", "Sheet2a", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "M1.25")
i5 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "Sheet11", "M1.25")
j5 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "Sheet11", "M1.25")
k5 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "Sheet11", "M1.25")
l5 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "Sheet11", "M1.25")
a6 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "H3")
cx6 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "H3")
b6 = Array("Sheet1", "Sheet2", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "H3")
dx6 = Array("Sheet1", "Sheet2a", "Sheet3.a", "Sheet4", "Sheet7", "Sheet8", "H3")
e6 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "H3")
f6 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "H3")
g6 = Array("Sheet1", "Sheet2", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "H3")
h6 = Array("Sheet1", "Sheet2a", "Sheet3.c", "Sheet4", "Sheet7", "Sheet9", "Sheet10", "H3")
i6 = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "Sheet11", "H3")
j6 = Array("Sheet1", "Sheet2a", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "Sheet11", "H3")
k6 = Array("Sheet1", "Sheet2", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "Sheet11", "H3")
l6 = Array("Sheet1", "Sheet2a", "Sheet3.b", "Sheet4", "Sheet5", "Sheet6", "Sheet9", "Sheet10", "Sheet11", "H3")
pdf = ThisWorkbook.FullName
'Get sheet's visible property, and set to xlSheetVisible
aa1 = a1
For i = 0 To UBound(a1)
aa1(i) = Worksheets(a1(i)).Visible
Worksheets(a1(i)).Visible = xlSheetVisible
Next i
bb1 = b1
For i = 0 To UBound(b1)
bb1(i) = Worksheets(b1(i)).Visible
Worksheets(b1(i)).Visible = xlSheetVisible
Next i
cc1 = cx1
For i = 0 To UBound(cx1)
cc1(i) = Worksheets(cx1(i)).Visible
Worksheets(cx1(i)).Visible = xlSheetVisible
Next i
dd1 = dx1
For i = 0 To UBound(dx1)
dd1(i) = Worksheets(dx1(i)).Visible
Worksheets(dx1(i)).Visible = xlSheetVisible
Next i
ee1 = e1
For i = 0 To UBound(e1)
ee1(i) = Worksheets(e1(i)).Visible
Worksheets(e1(i)).Visible = xlSheetVisible
Next i
ff1 = f1
For i = 0 To UBound(f1)
ff1(i) = Worksheets(f1(i)).Visible
Worksheets(f1(i)).Visible = xlSheetVisible
Next i
gg1 = g1
For i = 0 To UBound(g1)
gg1(i) = Worksheets(g1(i)).Visible
Worksheets(g1(i)).Visible = xlSheetVisible
Next i
hh1 = h1
For i = 0 To UBound(h1)
hh1(i) = Worksheets(h1(i)).Visible
Worksheets(h1(i)).Visible = xlSheetVisible
Next i
aa2 = a2
For i = 0 To UBound(a2)
aa2(i) = Worksheets(a2(i)).Visible
Worksheets(a2(i)).Visible = xlSheetVisible
Next i
bb2 = b2
For i = 0 To UBound(b2)
bb2(i) = Worksheets(b2(i)).Visible
Worksheets(b2(i)).Visible = xlSheetVisible
Next i
cc2 = cx2
For i = 0 To UBound(cx2)
cc2(i) = Worksheets(cx2(i)).Visible
Worksheets(cx2(i)).Visible = xlSheetVisible
Next i
dd2 = dx2
For i = 0 To UBound(dx2)
dd2(i) = Worksheets(dx2(i)).Visible
Worksheets(dx2(i)).Visible = xlSheetVisible
Next i
ee2 = e2
For i = 0 To UBound(e2)
ee2(i) = Worksheets(e2(i)).Visible
Worksheets(e2(i)).Visible = xlSheetVisible
Next i
ff2 = f2
For i = 0 To UBound(f2)
ff2(i) = Worksheets(f2(i)).Visible
Worksheets(f2(i)).Visible = xlSheetVisible
Next i
gg2 = g2
For i = 0 To UBound(g2)
gg2(i) = Worksheets(g2(i)).Visible
Worksheets(g2(i)).Visible = xlSheetVisible
Next i
hh2 = h2
For i = 0 To UBound(h2)
hh2(i) = Worksheets(h2(i)).Visible
Worksheets(h2(i)).Visible = xlSheetVisible
Next i
ii2 = i2
For i = 0 To UBound(i2)
ii2(i) = Worksheets(i2(i)).Visible
Worksheets(i2(i)).Visible = xlSheetVisible
Next i
jj2 = j2
For i = 0 To UBound(j2)
jj2(i) = Worksheets(j2(i)).Visible
Worksheets(j2(i)).Visible = xlSheetVisible
Next i
kk2 = k2
For i = 0 To UBound(k2)
kk2(i) = Worksheets(k2(i)).Visible
Worksheets(k2(i)).Visible = xlSheetVisible
Next i
ll2 = l2
For i = 0 To UBound(l2)
ll2(i) = Worksheets(l2(i)).Visible
Worksheets(l2(i)).Visible = xlSheetVisible
Next i
aa3 = a3
For i = 0 To UBound(a3)
aa3(i) = Worksheets(a3(i)).Visible
Worksheets(a3(i)).Visible = xlSheetVisible
Next i
bb3 = b3
For i = 0 To UBound(b3)
bb3(i) = Worksheets(b3(i)).Visible
Worksheets(b3(i)).Visible = xlSheetVisible
Next i
cc3 = cx3
For i = 0 To UBound(cx3)
cc3(i) = Worksheets(cx3(i)).Visible
Worksheets(cx3(i)).Visible = xlSheetVisible
Next i
dd3 = dx3
For i = 0 To UBound(dx3)
dd3(i) = Worksheets(dx3(i)).Visible
Worksheets(dx3(i)).Visible = xlSheetVisible
Next i
ee3 = e3
For i = 0 To UBound(e3)
ee3(i) = Worksheets(e3(i)).Visible
Worksheets(e3(i)).Visible = xlSheetVisible
Next i
ff3 = f3
For i = 0 To UBound(f3)
ff3(i) = Worksheets(f3(i)).Visible
Worksheets(f3(i)).Visible = xlSheetVisible
Next i
gg3 = g3
For i = 0 To UBound(g3)
gg3(i) = Worksheets(g3(i)).Visible
Worksheets(g3(i)).Visible = xlSheetVisible
Next i
hh3 = h3
For i = 0 To UBound(h3)
hh3(i) = Worksheets(h3(i)).Visible
Worksheets(h3(i)).Visible = xlSheetVisible
Next i
ii3 = i3
For i = 0 To UBound(i3)
ii3(i) = Worksheets(i3(i)).Visible
Worksheets(i3(i)).Visible = xlSheetVisible
Next i
jj3 = j3
For i = 0 To UBound(j3)
jj3(i) = Worksheets(j3(i)).Visible
Worksheets(j3(i)).Visible = xlSheetVisible
Next i
kk3 = k3
For i = 0 To UBound(k3)
kk3(i) = Worksheets(k3(i)).Visible
Worksheets(k3(i)).Visible = xlSheetVisible
Next i
ll3 = l3
For i = 0 To UBound(l3)
ll3(i) = Worksheets(l3(i)).Visible
Worksheets(l3(i)).Visible = xlSheetVisible
Next i
aa4 = a4
For i = 0 To UBound(a4)
aa4(i) = Worksheets(a4(i)).Visible
Worksheets(a4(i)).Visible = xlSheetVisible
Next i
bb4 = b4
For i = 0 To UBound(b4)
bb4(i) = Worksheets(b4(i)).Visible
Worksheets(b4(i)).Visible = xlSheetVisible
Next i
cc4 = cx4
For i = 0 To UBound(cx4)
cc4(i) = Worksheets(cx4(i)).Visible
Worksheets(cx4(i)).Visible = xlSheetVisible
Next i
dd4 = dx4
For i = 0 To UBound(dx4)
dd4(i) = Worksheets(dx4(i)).Visible
Worksheets(dx4(i)).Visible = xlSheetVisible
Next i
ee4 = e4
For i = 0 To UBound(e4)
ee4(i) = Worksheets(e4(i)).Visible
Worksheets(e4(i)).Visible = xlSheetVisible
Next i
ff4 = f4
For i = 0 To UBound(f4)
ff4(i) = Worksheets(f4(i)).Visible
Worksheets(f4(i)).Visible = xlSheetVisible
Next i
gg4 = g4
For i = 0 To UBound(g4)
gg4(i) = Worksheets(g4(i)).Visible
Worksheets(g4(i)).Visible = xlSheetVisible
Next i
hh4 = h4
For i = 0 To UBound(h4)
hh4(i) = Worksheets(h4(i)).Visible
Worksheets(h4(i)).Visible = xlSheetVisible
Next i
ii4 = i4
For i = 0 To UBound(i4)
ii4(i) = Worksheets(i4(i)).Visible
Worksheets(i4(i)).Visible = xlSheetVisible
Next i
jj4 = j4
For i = 0 To UBound(j4)
jj4(i) = Worksheets(j4(i)).Visible
Worksheets(j4(i)).Visible = xlSheetVisible
Next i
kk4 = k4
For i = 0 To UBound(k4)
kk4(i) = Worksheets(k4(i)).Visible
Worksheets(k4(i)).Visible = xlSheetVisible
Next i
ll4 = l4
For i = 0 To UBound(l4)
ll4(i) = Worksheets(l4(i)).Visible
Worksheets(l4(i)).Visible = xlSheetVisible
Next i
aa5 = a5
For i = 0 To UBound(a5)
aa5(i) = Worksheets(a5(i)).Visible
Worksheets(a5(i)).Visible = xlSheetVisible
Next i
bb5 = b5
For i = 0 To UBound(b5)
bb5(i) = Worksheets(b5(i)).Visible
Worksheets(b5(i)).Visible = xlSheetVisible
Next i
cc5 = cx5
For i = 0 To UBound(cx5)
cc5(i) = Worksheets(cx5(i)).Visible
Worksheets(cx5(i)).Visible = xlSheetVisible
Next i
dd5 = dx5
For i = 0 To UBound(dx5)
dd5(i) = Worksheets(dx5(i)).Visible
Worksheets(dx5(i)).Visible = xlSheetVisible
Next i
ee5 = e5
For i = 0 To UBound(e5)
ee5(i) = Worksheets(e5(i)).Visible
Worksheets(e5(i)).Visible = xlSheetVisible
Next i
ff5 = f5
For i = 0 To UBound(f5)
ff5(i) = Worksheets(f5(i)).Visible
Worksheets(f5(i)).Visible = xlSheetVisible
Next i
gg5 = g5
For i = 0 To UBound(g5)
gg5(i) = Worksheets(g5(i)).Visible
Worksheets(g5(i)).Visible = xlSheetVisible
Next i
hh5 = h5
For i = 0 To UBound(h5)
hh5(i) = Worksheets(h5(i)).Visible
Worksheets(h5(i)).Visible = xlSheetVisible
Next i
ii5 = i5
For i = 0 To UBound(i5)
ii5(i) = Worksheets(i5(i)).Visible
Worksheets(i5(i)).Visible = xlSheetVisible
Next i
jj5 = j5
For i = 0 To UBound(j5)
jj5(i) = Worksheets(j5(i)).Visible
Worksheets(j5(i)).Visible = xlSheetVisible
Next i
kk5 = k5
For i = 0 To UBound(k5)
kk5(i) = Worksheets(k5(i)).Visible
Worksheets(k5(i)).Visible = xlSheetVisible
Next i
ll5 = l5
For i = 0 To UBound(l5)
ll5(i) = Worksheets(l5(i)).Visible
Worksheets(l5(i)).Visible = xlSheetVisible
Next i
aa6 = a6
For i = 0 To UBound(a6)
aa6(i) = Worksheets(a6(i)).Visible
Worksheets(a6(i)).Visible = xlSheetVisible
Next i
bb6 = b6
For i = 0 To UBound(b6)
bb6(i) = Worksheets(b6(i)).Visible
Worksheets(b6(i)).Visible = xlSheetVisible
Next i
cc6 = cx6
For i = 0 To UBound(cx6)
cc6(i) = Worksheets(cx6(i)).Visible
Worksheets(cx6(i)).Visible = xlSheetVisible
Next i
dd6 = dx6
For i = 0 To UBound(dx6)
dd6(i) = Worksheets(dx6(i)).Visible
Worksheets(dx6(i)).Visible = xlSheetVisible
Next i
ee6 = e6
For i = 0 To UBound(e6)
ee6(i) = Worksheets(ee6(i)).Visible
Worksheets(e6(i)).Visible = xlSheetVisible
Next i
ff6 = f6
For i = 0 To UBound(f6)
ff6(i) = Worksheets(f6(i)).Visible
Worksheets(f6(i)).Visible = xlSheetVisible
Next i
gg6 = g6
For i = 0 To UBound(g6)
gg6(i) = Worksheets(g6(i)).Visible
Worksheets(g6(i)).Visible = xlSheetVisible
Next i
hh6 = h6
For i = 0 To UBound(h6)
hh6(i) = Worksheets(h6(i)).Visible
Worksheets(h6(i)).Visible = xlSheetVisible
Next i
ii6 = i6
For i = 0 To UBound(i6)
ii6(i) = Worksheets(i6(i)).Visible
Worksheets(i6(i)).Visible = xlSheetVisible
Next i
jj6 = j6
For i = 0 To UBound(j6)
jj6(i) = Worksheets(j6(i)).Visible
Worksheets(j6(i)).Visible = xlSheetVisible
Next i
kk6 = k6
For i = 0 To UBound(k6)
kk6(i) = Worksheets(k6(i)).Visible
Worksheets(k6(i)).Visible = xlSheetVisible
Next i
ll6 = l6
For i = 0 To UBound(l6)
ll6(i) = Worksheets(l6(i)).Visible
Worksheets(l6(i)).Visible = xlSheetVisible
Next i
Set rng = Sheets("Data").Range("H34:H749")
For Each c In rng
If c = "Value is exceed more than ±0.25% of weigher max value" Then counter = counter + 1
Next c
If counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP18" Or Sheets("Data").Range("C9").Value = "CP18 TM" Or Sheets("Data").Range("C9").Value = "CP21" Or Sheets("Data").Range("C9").Value = "M21Z" Or Sheets("Data").Range("C9").Value = "M25Z") Then
Sheets(a1).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP18" Or Sheets("Data").Range("C9").Value = "CP18 TM" Or Sheets("Data").Range("C9").Value = "CP21" Or Sheets("Data").Range("C9").Value = "M21Z" Or Sheets("Data").Range("C9").Value = "M25Z") Then
Sheets(b1).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP18" Or Sheets("Data").Range("C9").Value = "CP18 TM" Or Sheets("Data").Range("C9").Value = "CP21" Or Sheets("Data").Range("C9").Value = "M21Z" Or Sheets("Data").Range("C9").Value = "M25Z") Then
Sheets(cx1).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP18" Or Sheets("Data").Range("C9").Value = "CP18 TM" Or Sheets("Data").Range("C9").Value = "CP21" Or Sheets("Data").Range("C9").Value = "M21Z" Or Sheets("Data").Range("C9").Value = "M25Z") Then
Sheets(dx1).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP18" Or Sheets("Data").Range("C9").Value = "CP18 TM" Or Sheets("Data").Range("C9").Value = "CP21" Or Sheets("Data").Range("C9").Value = "M21Z" Or Sheets("Data").Range("C9").Value = "M25Z") Then
Sheets(e1).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP18" Or Sheets("Data").Range("C9").Value = "CP18 TM" Or Sheets("Data").Range("C9").Value = "CP21" Or Sheets("Data").Range("C9").Value = "M21Z" Or Sheets("Data").Range("C9").Value = "M25Z") Then
Sheets(g1).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP18" Or Sheets("Data").Range("C9").Value = "CP18 TM" Or Sheets("Data").Range("C9").Value = "CP21" Or Sheets("Data").Range("C9").Value = "M21Z" Or Sheets("Data").Range("C9").Value = "M25Z") Then
Sheets(f1).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP18" Or Sheets("Data").Range("C9").Value = "CP18 TM" Or Sheets("Data").Range("C9").Value = "CP21" Or Sheets("Data").Range("C9").Value = "M21Z" Or Sheets("Data").Range("C9").Value = "M25Z") Then
Sheets(h1).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(a2).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(b2).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(cx2).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(dx2).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(e2).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(g2).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(f2).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(h2).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(i2).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(j2).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(k2).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "CP30" Or Sheets("Data").Range("C9").Value = "M30Z") Then
Sheets(l2).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(a3).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(b3).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(cx3).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(dx3).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(e3).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(g3).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(f3).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(h3).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(i3).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(j3).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(k3).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "CP45") Then
Sheets(l3).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(a4).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(b4).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(cx4).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(dx4).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(e4).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(g4).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(f4).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(h4).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(i4).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(j4).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(k4).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M1" Or Sheets("Data").Range("C9").Value = "M1P" Or Sheets("Data").Range("C9").Value = "M1C" Or Sheets("Data").Range("C9").Value = "M1CR" Or Sheets("Data").Range("C9").Value = "M1T" Or Sheets("Data").Range("C9").Value = "M1TR" Or Sheets("Data").Range("C9").Value = "H1J" Or Sheets("Data").Range("C9").Value = "H1JR" Or Sheets("Data").Range("C9").Value = "HN1") Then
Sheets(l4).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(a5).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(b5).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(cx5).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(dx5).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(e5).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(g5).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(f5).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(h5).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(i5).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(j5).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(k5).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M1.25" Or Sheets("Data").Range("C9").Value = "H1.25" Or Sheets("Data").Range("C9").Value = "H1.25J") Then
Sheets(l5).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(a6).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(b6).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(cx6).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(dx6).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(e6).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(g6).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(f6).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Not Sheets("Data").Range("C14").Value <= 0 And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(h6).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(i6).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = False And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(j6).Select
ElseIf counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(k6).Select
ElseIf Not counter <= 0 And Sheets("Data").CheckBox1.Value = True And Sheets("Data").CheckBox6.Value = True And (Sheets("Data").Range("C9").Value = "M2.25" Or Sheets("Data").Range("C9").Value = "H2.25" Or Sheets("Data").Range("C9").Value = "M2.5" Or Sheets("Data").Range("C9").Value = "M3" Or Sheets("Data").Range("C9").Value = "H3N" Or Sheets("Data").Range("C9").Value = "H3J") Then
Sheets(l6).Select
End If
ActiveSheet.ExportAsFixedFormat xlTypePDF, pdf, xlQualityStandard, True, False, , , True
Sheets(1).Select 'ungroup sheets
'After export hide sheets
For i = 0 To UBound(a1)
Worksheets(a1(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(b1)
Worksheets(b1(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(cx1)
Worksheets(cx1(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(dx1)
Worksheets(dx1(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(a2)
Worksheets(a2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(b2)
Worksheets(b2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(cx2)
Worksheets(cx2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(dx2)
Worksheets(dx2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(a3)
Worksheets(a3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(b3)
Worksheets(b3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(cx3)
Worksheets(cx3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(dx3)
Worksheets(dx3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(a4)
Worksheets(a4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(b4)
Worksheets(b4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(cx4)
Worksheets(cx4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(dx4)
Worksheets(dx4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(a5)
Worksheets(a5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(b5)
Worksheets(b5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(cx5)
Worksheets(cx5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(dx5)
Worksheets(dx5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(a6)
Worksheets(a6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(b6)
Worksheets(b6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(e1)
Worksheets(e1(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(cx6)
Worksheets(cx6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(dx6)
Worksheets(dx6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(e2)
Worksheets(e2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(e3)
Worksheets(e3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(e4)
Worksheets(e4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(e5)
Worksheets(e5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(e6)
Worksheets(e6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(f1)
Worksheets(f1(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(f2)
Worksheets(f2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(f3)
Worksheets(f3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(f4)
Worksheets(f4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(f5)
Worksheets(f5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(f6)
Worksheets(f6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(g1)
Worksheets(g1(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(g2)
Worksheets(g2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(g3)
Worksheets(g3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(g4)
Worksheets(g4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(g5)
Worksheets(g5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(g6)
Worksheets(g6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(h1)
Worksheets(h1(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(h2)
Worksheets(h2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(h3)
Worksheets(h3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(h4)
Worksheets(h4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(h5)
Worksheets(h5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(h6)
Worksheets(h6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(i2)
Worksheets(i2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(i3)
Worksheets(i3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(i4)
Worksheets(i4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(i5)
Worksheets(i5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(i6)
Worksheets(i6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(j2)
Worksheets(j2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(j3)
Worksheets(j3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(j4)
Worksheets(j4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(j5)
Worksheets(j5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(j6)
Worksheets(j6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(k2)
Worksheets(k2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(k3)
Worksheets(k3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(k4)
Worksheets(k4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(k5)
Worksheets(k5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(k6)
Worksheets(k6(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(l2)
Worksheets(l2(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(l3)
Worksheets(l3(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(l4)
Worksheets(l4(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(l5)
Worksheets(l5(i)).Visible = xlSheetVisible
Next i
For i = 0 To UBound(l6)
Worksheets(l6(i)).Visible = xlSheetVisible
Next i
End Sub
Can any one please help me to short out this error