Procedure too large error

[elsuji]

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

[Artik]

I will skip the code quality. ;)
I didn't analyze its content very much. I answer only how to shorten it a bit so that the compiler does not report an error.


Before this fragment:
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
, add
With Sheets("Data") AND before line
ActiveSheet.ExportAsFixedFormat xlTypePDF, pdf, xlQualityStandard, True, False, , , True, add
End With.
And now, between new lines, remove all instances of Sheets("Data").
So, from the fragment
Set rng = Sheets("Data").Range("H34:H749") is to remain
Set rng = .Range("H34:H749") The dot before Range is very important.


You also lack the ii5 variable declaration.

Do not insert any other macros into the module with this code. If needed, insert them into the new module.

Artik

[elsuji]

Dear Artik,

I tried as per your explanation. But i am facing the same issue

[Bob Phillips]

This compiles for me


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: SheetVisibility aa1, a1
bb1 = b1: SheetVisibility bb1, b1
cc1 = cx1: SheetVisibility cc1, cx
dd1 = dx1: SheetVisibility dd1, dx
ee1 = e1: SheetVisibility ee1, e1
ff1 = f1: SheetVisibility ff1, f1
gg1 = g1: SheetVisibility gg1, g1
hh1 = h1: SheetVisibility hh1, h1
aa2 = a2: SheetVisibility aa2, a2
bb2 = b2: SheetVisibility bb2, b2
cc2 = cx2: SheetVisibility cc2, cx
dd2 = dx2: SheetVisibility dd2, dx
ee2 = e2: SheetVisibility ee2, e2
ff2 = f2: SheetVisibility ff2, f2
gg2 = g2: SheetVisibility gg2, g2
hh2 = h2: SheetVisibility hh2, h2
ii2 = i2: SheetVisibility ii2, i2
jj2 = j2: SheetVisibility jj2, j2
kk2 = k2: SheetVisibility kk2, k2
ll2 = l2: SheetVisibility ll2, l2
aa3 = a3: SheetVisibility aa3, a3
bb3 = b3: SheetVisibility bb3, b3
cc3 = cx3: SheetVisibility cc3, cx
dd3 = dx3: SheetVisibility dd3, dx
ee3 = e3: SheetVisibility ee3, e3
ff3 = f3: SheetVisibility ff3, f3
gg3 = g3: SheetVisibility gg3, g3
hh3 = h3: SheetVisibility hh3, h3
ii3 = i3: SheetVisibility ii3, i3
jj3 = j3: SheetVisibility jj3, j3
kk3 = k3: SheetVisibility kk3, k3
ll3 = l3: SheetVisibility ll3, l3
aa4 = a4: SheetVisibility aa4, a4
bb4 = b4: SheetVisibility bb4, b4
cc4 = cx4: SheetVisibility cc4, cx
dd4 = dx4: SheetVisibility dd4, dx
ee4 = e4: SheetVisibility ee4, e4
ff4 = f4: SheetVisibility ff4, f4
gg4 = g4: SheetVisibility gg4, g4
hh4 = h4: SheetVisibility hh4, h4
ii4 = i4: SheetVisibility ii4, i4
jj4 = j4: SheetVisibility jj4, j4
kk4 = k4: SheetVisibility kk4, k4
ll4 = l4: SheetVisibility ll4, l4
aa5 = a5: SheetVisibility aa5, a5
bb5 = b5: SheetVisibility bb5, b5
cc5 = cx5: SheetVisibility cc5, cx
dd5 = dx5: SheetVisibility dd5, dx
ee5 = e5: SheetVisibility ee5, e5
ff5 = f5: SheetVisibility ff5, f5
gg5 = g5: SheetVisibility gg5, g5
hh5 = h5: SheetVisibility hh5, h5
ii5 = i5: SheetVisibility ii5, i5
jj5 = j5: SheetVisibility jj5, j5
kk5 = k5: SheetVisibility kk5, k5
ll5 = l5: SheetVisibility ll5, l5
aa6 = a6: SheetVisibility aa6, a6
bb6 = b6: SheetVisibility bb6, b6
cc6 = cx6: SheetVisibility cc6, cx
dd6 = dx6: SheetVisibility dd6, dx
ee6 = e6: SheetVisibility ee6, e6
ff6 = f6: SheetVisibility ff6, f6
gg6 = g6: SheetVisibility gg6, g6
hh6 = h6: SheetVisibility hh6, h6
ii6 = i6: SheetVisibility ii6, i6
jj6 = j6: SheetVisibility jj6, j6
kk6 = k6: SheetVisibility kk6, k6
ll6 = l6: SheetVisibility ll6, l6

With Sheets("Data")

Set rng = .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 Not .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "CP18" Or .Range("C9").Value = "CP18 TM" Or .Range("C9").Value = "CP21" Or .Range("C9").Value = "M21Z" Or .Range("C9").Value = "M25Z") Then
Sheets(a1).Select
ElseIf counter <= 0 And Not .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "CP18" Or .Range("C9").Value = "CP18 TM" Or .Range("C9").Value = "CP21" Or .Range("C9").Value = "M21Z" Or .Range("C9").Value = "M25Z") Then
Sheets(b1).Select
ElseIf Not counter <= 0 And Not .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "CP18" Or .Range("C9").Value = "CP18 TM" Or .Range("C9").Value = "CP21" Or .Range("C9").Value = "M21Z" Or .Range("C9").Value = "M25Z") Then
Sheets(cx1).Select
ElseIf Not counter <= 0 And Not .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "CP18" Or .Range("C9").Value = "CP18 TM" Or .Range("C9").Value = "CP21" Or .Range("C9").Value = "M21Z" Or .Range("C9").Value = "M25Z") Then
Sheets(dx1).Select
ElseIf counter <= 0 And .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "CP18" Or .Range("C9").Value = "CP18 TM" Or .Range("C9").Value = "CP21" Or .Range("C9").Value = "M21Z" Or .Range("C9").Value = "M25Z") Then
Sheets(e1).Select
ElseIf counter <= 0 And .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "CP18" Or .Range("C9").Value = "CP18 TM" Or .Range("C9").Value = "CP21" Or .Range("C9").Value = "M21Z" Or .Range("C9").Value = "M25Z") Then
Sheets(g1).Select
ElseIf Not counter <= 0 And .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "CP18" Or .Range("C9").Value = "CP18 TM" Or .Range("C9").Value = "CP21" Or .Range("C9").Value = "M21Z" Or .Range("C9").Value = "M25Z") Then
Sheets(f1).Select
ElseIf Not counter <= 0 And .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "CP18" Or .Range("C9").Value = "CP18 TM" Or .Range("C9").Value = "CP21" Or .Range("C9").Value = "M21Z" Or .Range("C9").Value = "M25Z") Then
Sheets(h1).Select

ElseIf counter <= 0 And Not .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "CP30" Or .Range("C9").Value = "M30Z") Then
Sheets(a2).Select
ElseIf counter <= 0 And Not .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "CP30" Or .Range("C9").Value = "M30Z") Then
Sheets(b2).Select
ElseIf Not counter <= 0 And Not .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "CP30" Or .Range("C9").Value = "M30Z") Then
Sheets(cx2).Select
ElseIf Not counter <= 0 And Not .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "CP30" Or .Range("C9").Value = "M30Z") Then
Sheets(dx2).Select
ElseIf counter <= 0 And .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "CP30" Or .Range("C9").Value = "M30Z") Then
Sheets(e2).Select
ElseIf counter <= 0 And .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "CP30" Or .Range("C9").Value = "M30Z") Then
Sheets(g2).Select
ElseIf Not counter <= 0 And .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "CP30" Or .Range("C9").Value = "M30Z") Then
Sheets(f2).Select
ElseIf Not counter <= 0 And .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "CP30" Or .Range("C9").Value = "M30Z") Then
Sheets(h2).Select
ElseIf counter <= 0 And Not .CheckBox1.Value And .CheckBox6.Value And (.Range("C9").Value = "CP30" Or .Range("C9").Value = "M30Z") Then
Sheets(i2).Select
ElseIf Not counter <= 0 And Not .CheckBox1.Value And .CheckBox6.Value And (.Range("C9").Value = "CP30" Or .Range("C9").Value = "M30Z") Then
Sheets(j2).Select
ElseIf counter <= 0 And .CheckBox1.Value And .CheckBox6.Value And (.Range("C9").Value = "CP30" Or .Range("C9").Value = "M30Z") Then
Sheets(k2).Select
ElseIf Not counter <= 0 And .CheckBox1.Value And .CheckBox6.Value And (.Range("C9").Value = "CP30" Or .Range("C9").Value = "M30Z") Then
Sheets(l2).Select

ElseIf counter <= 0 And Not .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "CP45") Then
Sheets(a3).Select
ElseIf counter <= 0 And Not .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "CP45") Then
Sheets(b3).Select
ElseIf Not counter <= 0 And Not .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "CP45") Then
Sheets(cx3).Select
ElseIf Not counter <= 0 And Not .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "CP45") Then
Sheets(dx3).Select
ElseIf counter <= 0 And .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "CP45") Then
Sheets(e3).Select
ElseIf counter <= 0 And .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "CP45") Then
Sheets(g3).Select
ElseIf Not counter <= 0 And .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "CP45") Then
Sheets(f3).Select
ElseIf Not counter <= 0 And .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "CP45") Then
Sheets(h3).Select
ElseIf counter <= 0 And Not .CheckBox1.Value And .CheckBox6.Value And (.Range("C9").Value = "CP45") Then
Sheets(i3).Select
ElseIf Not counter <= 0 And Not .CheckBox1.Value And .CheckBox6.Value And (.Range("C9").Value = "CP45") Then
Sheets(j3).Select
ElseIf counter <= 0 And .CheckBox1.Value And .CheckBox6.Value And (.Range("C9").Value = "CP45") Then
Sheets(k3).Select
ElseIf Not counter <= 0 And .CheckBox1.Value And .CheckBox6.Value And (.Range("C9").Value = "CP45") Then
Sheets(l3).Select

ElseIf counter <= 0 And Not .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "M1" Or .Range("C9").Value = "M1P" Or .Range("C9").Value = "M1C" Or .Range("C9").Value = "M1CR" Or .Range("C9").Value = "M1T" Or .Range("C9").Value = "M1TR" Or .Range("C9").Value = "H1J" Or .Range("C9").Value = "H1JR" Or .Range("C9").Value = "HN1") Then
Sheets(a4).Select
ElseIf counter <= 0 And Not .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "M1" Or .Range("C9").Value = "M1P" Or .Range("C9").Value = "M1C" Or .Range("C9").Value = "M1CR" Or .Range("C9").Value = "M1T" Or .Range("C9").Value = "M1TR" Or .Range("C9").Value = "H1J" Or .Range("C9").Value = "H1JR" Or .Range("C9").Value = "HN1") Then
Sheets(b4).Select
ElseIf Not counter <= 0 And Not .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "M1" Or .Range("C9").Value = "M1P" Or .Range("C9").Value = "M1C" Or .Range("C9").Value = "M1CR" Or .Range("C9").Value = "M1T" Or .Range("C9").Value = "M1TR" Or .Range("C9").Value = "H1J" Or .Range("C9").Value = "H1JR" Or .Range("C9").Value = "HN1") Then
Sheets(cx4).Select
ElseIf Not counter <= 0 And Not .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "M1" Or .Range("C9").Value = "M1P" Or .Range("C9").Value = "M1C" Or .Range("C9").Value = "M1CR" Or .Range("C9").Value = "M1T" Or .Range("C9").Value = "M1TR" Or .Range("C9").Value = "H1J" Or .Range("C9").Value = "H1JR" Or .Range("C9").Value = "HN1") Then
Sheets(dx4).Select
ElseIf counter <= 0 And .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "M1" Or .Range("C9").Value = "M1P" Or .Range("C9").Value = "M1C" Or .Range("C9").Value = "M1CR" Or .Range("C9").Value = "M1T" Or .Range("C9").Value = "M1TR" Or .Range("C9").Value = "H1J" Or .Range("C9").Value = "H1JR" Or .Range("C9").Value = "HN1") Then
Sheets(e4).Select
ElseIf counter <= 0 And .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "M1" Or .Range("C9").Value = "M1P" Or .Range("C9").Value = "M1C" Or .Range("C9").Value = "M1CR" Or .Range("C9").Value = "M1T" Or .Range("C9").Value = "M1TR" Or .Range("C9").Value = "H1J" Or .Range("C9").Value = "H1JR" Or .Range("C9").Value = "HN1") Then
Sheets(g4).Select
ElseIf Not counter <= 0 And .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "M1" Or .Range("C9").Value = "M1P" Or .Range("C9").Value = "M1C" Or .Range("C9").Value = "M1CR" Or .Range("C9").Value = "M1T" Or .Range("C9").Value = "M1TR" Or .Range("C9").Value = "H1J" Or .Range("C9").Value = "H1JR" Or .Range("C9").Value = "HN1") Then
Sheets(f4).Select
ElseIf Not counter <= 0 And .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "M1" Or .Range("C9").Value = "M1P" Or .Range("C9").Value = "M1C" Or .Range("C9").Value = "M1CR" Or .Range("C9").Value = "M1T" Or .Range("C9").Value = "M1TR" Or .Range("C9").Value = "H1J" Or .Range("C9").Value = "H1JR" Or .Range("C9").Value = "HN1") Then
Sheets(h4).Select
ElseIf counter <= 0 And Not .CheckBox1.Value And .CheckBox6.Value And (.Range("C9").Value = "M1" Or .Range("C9").Value = "M1P" Or .Range("C9").Value = "M1C" Or .Range("C9").Value = "M1CR" Or .Range("C9").Value = "M1T" Or .Range("C9").Value = "M1TR" Or .Range("C9").Value = "H1J" Or .Range("C9").Value = "H1JR" Or .Range("C9").Value = "HN1") Then
Sheets(i4).Select
ElseIf Not counter <= 0 And Not .CheckBox1.Value And .CheckBox6.Value And (.Range("C9").Value = "M1" Or .Range("C9").Value = "M1P" Or .Range("C9").Value = "M1C" Or .Range("C9").Value = "M1CR" Or .Range("C9").Value = "M1T" Or .Range("C9").Value = "M1TR" Or .Range("C9").Value = "H1J" Or .Range("C9").Value = "H1JR" Or .Range("C9").Value = "HN1") Then
Sheets(j4).Select
ElseIf counter <= 0 And .CheckBox1.Value And .CheckBox6.Value And (.Range("C9").Value = "M1" Or .Range("C9").Value = "M1P" Or .Range("C9").Value = "M1C" Or .Range("C9").Value = "M1CR" Or .Range("C9").Value = "M1T" Or .Range("C9").Value = "M1TR" Or .Range("C9").Value = "H1J" Or .Range("C9").Value = "H1JR" Or .Range("C9").Value = "HN1") Then
Sheets(k4).Select
ElseIf Not counter <= 0 And .CheckBox1.Value And .CheckBox6.Value And (.Range("C9").Value = "M1" Or .Range("C9").Value = "M1P" Or .Range("C9").Value = "M1C" Or .Range("C9").Value = "M1CR" Or .Range("C9").Value = "M1T" Or .Range("C9").Value = "M1TR" Or .Range("C9").Value = "H1J" Or .Range("C9").Value = "H1JR" Or .Range("C9").Value = "HN1") Then
Sheets(l4).Select

ElseIf counter <= 0 And Not .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "M1.25" Or .Range("C9").Value = "H1.25" Or .Range("C9").Value = "H1.25J") Then
Sheets(a5).Select
ElseIf counter <= 0 And Not .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "M1.25" Or .Range("C9").Value = "H1.25" Or .Range("C9").Value = "H1.25J") Then
Sheets(b5).Select
ElseIf Not counter <= 0 And Not .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "M1.25" Or .Range("C9").Value = "H1.25" Or .Range("C9").Value = "H1.25J") Then
Sheets(cx5).Select
ElseIf Not counter <= 0 And Not .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "M1.25" Or .Range("C9").Value = "H1.25" Or .Range("C9").Value = "H1.25J") Then
Sheets(dx5).Select
ElseIf counter <= 0 And .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "M1.25" Or .Range("C9").Value = "H1.25" Or .Range("C9").Value = "H1.25J") Then
Sheets(e5).Select
ElseIf counter <= 0 And .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "M1.25" Or .Range("C9").Value = "H1.25" Or .Range("C9").Value = "H1.25J") Then
Sheets(g5).Select
ElseIf Not counter <= 0 And .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "M1.25" Or .Range("C9").Value = "H1.25" Or .Range("C9").Value = "H1.25J") Then
Sheets(f5).Select
ElseIf Not counter <= 0 And .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "M1.25" Or .Range("C9").Value = "H1.25" Or .Range("C9").Value = "H1.25J") Then
Sheets(h5).Select
ElseIf counter <= 0 And Not .CheckBox1.Value And .CheckBox6.Value And (.Range("C9").Value = "M1.25" Or .Range("C9").Value = "H1.25" Or .Range("C9").Value = "H1.25J") Then
Sheets(i5).Select
ElseIf Not counter <= 0 And Not .CheckBox1.Value And .CheckBox6.Value And (.Range("C9").Value = "M1.25" Or .Range("C9").Value = "H1.25" Or .Range("C9").Value = "H1.25J") Then
Sheets(j5).Select
ElseIf counter <= 0 And .CheckBox1.Value And .CheckBox6.Value And (.Range("C9").Value = "M1.25" Or .Range("C9").Value = "H1.25" Or .Range("C9").Value = "H1.25J") Then
Sheets(k5).Select
ElseIf Not counter <= 0 And .CheckBox1.Value And .CheckBox6.Value And (.Range("C9").Value = "M1.25" Or .Range("C9").Value = "H1.25" Or .Range("C9").Value = "H1.25J") Then
Sheets(l5).Select

ElseIf counter <= 0 And Not .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "M2.25" Or .Range("C9").Value = "H2.25" Or .Range("C9").Value = "M2.5" Or .Range("C9").Value = "M3" Or .Range("C9").Value = "H3N" Or .Range("C9").Value = "H3J") Then
Sheets(a6).Select
ElseIf counter <= 0 And Not .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "M2.25" Or .Range("C9").Value = "H2.25" Or .Range("C9").Value = "M2.5" Or .Range("C9").Value = "M3" Or .Range("C9").Value = "H3N" Or .Range("C9").Value = "H3J") Then
Sheets(b6).Select
ElseIf Not counter <= 0 And Not .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "M2.25" Or .Range("C9").Value = "H2.25" Or .Range("C9").Value = "M2.5" Or .Range("C9").Value = "M3" Or .Range("C9").Value = "H3N" Or .Range("C9").Value = "H3J") Then
Sheets(cx6).Select
ElseIf Not counter <= 0 And Not .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "M2.25" Or .Range("C9").Value = "H2.25" Or .Range("C9").Value = "M2.5" Or .Range("C9").Value = "M3" Or .Range("C9").Value = "H3N" Or .Range("C9").Value = "H3J") Then
Sheets(dx6).Select
ElseIf counter <= 0 And .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "M2.25" Or .Range("C9").Value = "H2.25" Or .Range("C9").Value = "M2.5" Or .Range("C9").Value = "M3" Or .Range("C9").Value = "H3N" Or .Range("C9").Value = "H3J") Then
Sheets(e6).Select
ElseIf counter <= 0 And .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "M2.25" Or .Range("C9").Value = "H2.25" Or .Range("C9").Value = "M2.5" Or .Range("C9").Value = "M3" Or .Range("C9").Value = "H3N" Or .Range("C9").Value = "H3J") Then
Sheets(g6).Select
ElseIf Not counter <= 0 And .CheckBox1.Value And .Range("C14").Value <= 0 And (.Range("C9").Value = "M2.25" Or .Range("C9").Value = "H2.25" Or .Range("C9").Value = "M2.5" Or .Range("C9").Value = "M3" Or .Range("C9").Value = "H3N" Or .Range("C9").Value = "H3J") Then
Sheets(f6).Select
ElseIf Not counter <= 0 And .CheckBox1.Value And Not .Range("C14").Value <= 0 And (.Range("C9").Value = "M2.25" Or .Range("C9").Value = "H2.25" Or .Range("C9").Value = "M2.5" Or .Range("C9").Value = "M3" Or .Range("C9").Value = "H3N" Or .Range("C9").Value = "H3J") Then
Sheets(h6).Select
ElseIf counter <= 0 And Not .CheckBox1.Value And .CheckBox6.Value And (.Range("C9").Value = "M2.25" Or .Range("C9").Value = "H2.25" Or .Range("C9").Value = "M2.5" Or .Range("C9").Value = "M3" Or .Range("C9").Value = "H3N" Or .Range("C9").Value = "H3J") Then
Sheets(i6).Select
ElseIf Not counter <= 0 And Not .CheckBox1.Value And .CheckBox6.Value And (.Range("C9").Value = "M2.25" Or .Range("C9").Value = "H2.25" Or .Range("C9").Value = "M2.5" Or .Range("C9").Value = "M3" Or .Range("C9").Value = "H3N" Or .Range("C9").Value = "H3J") Then
Sheets(j6).Select
ElseIf counter <= 0 And .CheckBox1.Value And .CheckBox6.Value And (.Range("C9").Value = "M2.25" Or .Range("C9").Value = "H2.25" Or .Range("C9").Value = "M2.5" Or .Range("C9").Value = "M3" Or .Range("C9").Value = "H3N" Or .Range("C9").Value = "H3J") Then
Sheets(k6).Select
ElseIf Not counter <= 0 And .CheckBox1.Value And .CheckBox6.Value And (.Range("C9").Value = "M2.25" Or .Range("C9").Value = "H2.25" Or .Range("C9").Value = "M2.5" Or .Range("C9").Value = "M3" Or .Range("C9").Value = "H3N" Or .Range("C9").Value = "H3J") Then
Sheets(l6).Select
End If
End With
ActiveSheet.ExportAsFixedFormat xlTypePDF, pdf, xlQualityStandard, True, False, , , True

Sheets(1).Select 'ungroup sheets
'After export hide sheets
MakeVisible a1, a2, a3, a4, a5, a6
MakeVisible b1, b2, b3, b4, b5, b6
MakeVisible e1, e2, e3, e4, e5, e6
MakeVisible f1, f2, f3, f4, f5, f6
MakeVisible g1, g2, g3, g4, g5, g6
MakeVisible h1, h2, h3, h4, h5, h6
MakeVisible i2, i3, i4, i5, i6
MakeVisible j2, j3, j4, j5, j6
MakeVisible k2, k3, k4, k5, k6
MakeVisible l2, l3, l4, l5, l6
MakeVisible cx1, x2, cx3, cx4, cx5, cx6
MakeVisible dx1, dx2, dx3, dx4, dx5, dx6
End Sub

Public Function SheetVisibility(ByRef ary As Variant, ByRef sht As Variant)
Dim i As Long

For i = LBound(sht) To UBound(sht)

ary(i) = Worksheets(sht(i)).Visible
Worksheets(sht(i)).Visible = xlSheetVisible
Next i
End Function

Public Function MakeVisible(ParamArray ary())
Dim i As Long, ii As Long

For i = LBound(ary) To UBound(ary)

For ii = LBound(ary(i)) To UBound(ary(i))

Worksheets(ary(i)(ii)).Visible = xlSheetVisible
Next ii
Next i
End Function

[Artik]

This further improvement in shortening the code + correct minor typing errors

Option Explicit

Sub Calibration_Certificate_Print_withLOGO()
Dim a1, b1, cx1, dx1, aa1, bb1, cc1, dd1, e1, ee1, f1, ff1, g1, gg1, h1, hh1
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, ii5, 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
Dim counter As Long
Dim pdf As String


Dim val_chk1 As Boolean
Dim val_chk6 As Boolean


Dim val_C9
Dim val_C14

Dim Clause1 As Boolean
Dim Clause2 As Boolean
Dim Clause3 As Boolean
Dim Clause4 As Boolean
Dim Clause5 As Boolean
Dim Clause6 As Boolean


a1 = Split("Sheet1/Sheet2/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/CP18", "/")
cx1 = Split("Sheet1/Sheet2a/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/CP18", "/")
b1 = Split("Sheet1/Sheet2/Sheet3.a/Sheet4/Sheet7/Sheet8/CP18", "/")
dx1 = Split("Sheet1/Sheet2a/Sheet3.a/Sheet4/Sheet7/Sheet8/CP18", "/")
e1 = Split("Sheet1/Sheet2/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/CP18", "/")
f1 = Split("Sheet1/Sheet2a/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/CP18", "/")
g1 = Split("Sheet1/Sheet2/Sheet3.c/Sheet4/Sheet7/Sheet9/Sheet10/CP18", "/")
h1 = Split("Sheet1/Sheet2a/Sheet3.c/Sheet4/Sheet7/Sheet9/Sheet10/CP18", "/")


a2 = Split("Sheet1/Sheet2/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/CP30", "/")
cx2 = Split("Sheet1/Sheet2a/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/CP30", "/")
b2 = Split("Sheet1/Sheet2/Sheet3.a/Sheet4/Sheet7/Sheet8/CP30", "/")
dx2 = Split("Sheet1/Sheet2a/Sheet3.a/Sheet4/Sheet7/Sheet8/CP30", "/")
e2 = Split("Sheet1/Sheet2/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/CP30", "/")
f2 = Split("Sheet1/Sheet2a/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/CP30", "/")
g2 = Split("Sheet1/Sheet2/Sheet3.c/Sheet4/Sheet7/Sheet9/Sheet10/CP30", "/")
h2 = Split("Sheet1/Sheet2a/Sheet3.c/Sheet4/Sheet7/Sheet9/Sheet10/CP30", "/")
i2 = Split("Sheet1/Sheet2/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/Sheet11/CP30", "/")
j2 = Split("Sheet1/Sheet2a/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/Sheet11/CP30", "/")
k2 = Split("Sheet1/Sheet2/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/Sheet11/CP30", "/")
l2 = Split("Sheet1/Sheet2a/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/Sheet11/CP30", "/")


a3 = Split("Sheet1/Sheet2/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/CP45", "/")
cx3 = Split("Sheet1/Sheet2a/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/CP45", "/")
b3 = Split("Sheet1/Sheet2/Sheet3.a/Sheet4/Sheet7/Sheet8/CP45", "/")
dx3 = Split("Sheet1/Sheet2a/Sheet3.a/Sheet4/Sheet7/Sheet8/CP45", "/")
e3 = Split("Sheet1/Sheet2/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/CP45", "/")
f3 = Split("Sheet1/Sheet2a/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/CP45", "/")
g3 = Split("Sheet1/Sheet2/Sheet3.c/Sheet4/Sheet7/Sheet9/Sheet10/CP45", "/")
h3 = Split("Sheet1/Sheet2a/Sheet3.c/Sheet4/Sheet7/Sheet9/Sheet10/CP45", "/")
i3 = Split("Sheet1/Sheet2/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/Sheet11/CP45", "/")
j3 = Split("Sheet1/Sheet2a/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/Sheet11/CP45", "/")
k3 = Split("Sheet1/Sheet2/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/Sheet11/CP45", "/")
l3 = Split("Sheet1/Sheet2a/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/Sheet11/CP45", "/")


a4 = Split("Sheet1/Sheet2/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/M1", "/")
cx4 = Split("Sheet1/Sheet2a/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/M1", "/")
b4 = Split("Sheet1/Sheet2/Sheet3.a/Sheet4/Sheet7/Sheet8/M1", "/")
dx4 = Split("Sheet1/Sheet2a/Sheet3.a/Sheet4/Sheet7/Sheet8/M1", "/")
e4 = Split("Sheet1/Sheet2/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/M1", "/")
f4 = Split("Sheet1/Sheet2a/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/M1", "/")
g4 = Split("Sheet1/Sheet2/Sheet3.c/Sheet4/Sheet7/Sheet9/Sheet10/M1", "/")
h4 = Split("Sheet1/Sheet2a/Sheet3.c/Sheet4/Sheet7/Sheet9/Sheet10/M1", "/")
i4 = Split("Sheet1/Sheet2/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/Sheet11/M1", "/")
j4 = Split("Sheet1/Sheet2a/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/Sheet11/M1", "/")
k4 = Split("Sheet1/Sheet2/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/Sheet11/M1", "/")
l4 = Split("Sheet1/Sheet2a/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/Sheet11/M1", "/")


a5 = Split("Sheet1/Sheet2/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/M1.25", "/")
cx5 = Split("Sheet1/Sheet2a/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/M1.25", "/")
b5 = Split("Sheet1/Sheet2/Sheet3.a/Sheet4/Sheet7/Sheet8/M1.25", "/")
dx5 = Split("Sheet1/Sheet2a/Sheet3.a/Sheet4/Sheet7/Sheet8/M1.25", "/")
e5 = Split("Sheet1/Sheet2/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/M1.25", "/")
f5 = Split("Sheet1/Sheet2a/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/M1.25", "/")
g5 = Split("Sheet1/Sheet2/Sheet3.c/Sheet4/Sheet7/Sheet9/Sheet10/M1.25", "/")
h5 = Split("Sheet1/Sheet2a/Sheet3.c/Sheet4/Sheet7/Sheet9/Sheet10/M1.25", "/")
i5 = Split("Sheet1/Sheet2/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/Sheet11/M1.25", "/")
j5 = Split("Sheet1/Sheet2a/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/Sheet11/M1.25", "/")
k5 = Split("Sheet1/Sheet2/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/Sheet11/M1.25", "/")
l5 = Split("Sheet1/Sheet2a/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/Sheet11/M1.25", "/")


a6 = Split("Sheet1/Sheet2/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/H3", "/")
cx6 = Split("Sheet1/Sheet2a/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/H3", "/")
b6 = Split("Sheet1/Sheet2/Sheet3.a/Sheet4/Sheet7/Sheet8/H3", "/")
dx6 = Split("Sheet1/Sheet2a/Sheet3.a/Sheet4/Sheet7/Sheet8/H3", "/")
e6 = Split("Sheet1/Sheet2/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/H3", "/")
f6 = Split("Sheet1/Sheet2a/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/H3", "/")
g6 = Split("Sheet1/Sheet2/Sheet3.c/Sheet4/Sheet7/Sheet9/Sheet10/H3", "/")
h6 = Split("Sheet1/Sheet2a/Sheet3.c/Sheet4/Sheet7/Sheet9/Sheet10/H3", "/")
i6 = Split("Sheet1/Sheet2/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/Sheet11/H3", "/")
j6 = Split("Sheet1/Sheet2a/Sheet3/Sheet4/Sheet5/Sheet6/Sheet8/Sheet11/H3", "/")
k6 = Split("Sheet1/Sheet2/Sheet3.b/Sheet4/Sheet5/Sheet6/Sheet9/Sheet10/Sheet11/H3", "/")
l6 = Split("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: SheetVisibility aa1, a1
bb1 = b1: SheetVisibility bb1, b1
cc1 = cx1: SheetVisibility cc1, cx1
dd1 = dx1: SheetVisibility dd1, dx1
ee1 = e1: SheetVisibility ee1, e1
ff1 = f1: SheetVisibility ff1, f1
gg1 = g1: SheetVisibility gg1, g1
hh1 = h1: SheetVisibility hh1, h1
aa2 = a2: SheetVisibility aa2, a2
bb2 = b2: SheetVisibility bb2, b2
cc2 = cx2: SheetVisibility cc2, cx2
dd2 = dx2: SheetVisibility dd2, dx2
ee2 = e2: SheetVisibility ee2, e2
ff2 = f2: SheetVisibility ff2, f2
gg2 = g2: SheetVisibility gg2, g2
hh2 = h2: SheetVisibility hh2, h2
ii2 = i2: SheetVisibility ii2, i2
jj2 = j2: SheetVisibility jj2, j2
kk2 = k2: SheetVisibility kk2, k2
ll2 = l2: SheetVisibility ll2, l2
aa3 = a3: SheetVisibility aa3, a3
bb3 = b3: SheetVisibility bb3, b3
cc3 = cx3: SheetVisibility cc3, cx3
dd3 = dx3: SheetVisibility dd3, dx3
ee3 = e3: SheetVisibility ee3, e3
ff3 = f3: SheetVisibility ff3, f3
gg3 = g3: SheetVisibility gg3, g3
hh3 = h3: SheetVisibility hh3, h3
ii3 = i3: SheetVisibility ii3, i3
jj3 = j3: SheetVisibility jj3, j3
kk3 = k3: SheetVisibility kk3, k3
ll3 = l3: SheetVisibility ll3, l3
aa4 = a4: SheetVisibility aa4, a4
bb4 = b4: SheetVisibility bb4, b4
cc4 = cx4: SheetVisibility cc4, cx4
dd4 = dx4: SheetVisibility dd4, dx4
ee4 = e4: SheetVisibility ee4, e4
ff4 = f4: SheetVisibility ff4, f4
gg4 = g4: SheetVisibility gg4, g4
hh4 = h4: SheetVisibility hh4, h4
ii4 = i4: SheetVisibility ii4, i4
jj4 = j4: SheetVisibility jj4, j4
kk4 = k4: SheetVisibility kk4, k4
ll4 = l4: SheetVisibility ll4, l4
aa5 = a5: SheetVisibility aa5, a5
bb5 = b5: SheetVisibility bb5, b5
cc5 = cx5: SheetVisibility cc5, cx5
dd5 = dx5: SheetVisibility dd5, dx5
ee5 = e5: SheetVisibility ee5, e5
ff5 = f5: SheetVisibility ff5, f5
gg5 = g5: SheetVisibility gg5, g5
hh5 = h5: SheetVisibility hh5, h5
ii5 = i5: SheetVisibility ii5, i5
jj5 = j5: SheetVisibility jj5, j5
kk5 = k5: SheetVisibility kk5, k5
ll5 = l5: SheetVisibility ll5, l5
aa6 = a6: SheetVisibility aa6, a6
bb6 = b6: SheetVisibility bb6, b6
cc6 = cx6: SheetVisibility cc6, cx6
dd6 = dx6: SheetVisibility dd6, dx6
ee6 = e6: SheetVisibility ee6, e6
ff6 = f6: SheetVisibility ff6, f6
gg6 = g6: SheetVisibility gg6, g6
hh6 = h6: SheetVisibility hh6, h6
ii6 = i6: SheetVisibility ii6, i6
jj6 = j6: SheetVisibility jj6, j6
kk6 = k6: SheetVisibility kk6, k6
ll6 = l6: SheetVisibility ll6, l6




With Sheets("Data")
Set rng = .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


val_chk1 = .CheckBox1.Value
val_chk6 = .CheckBox6.Value


val_C9 = .Range("C9").Value
val_C14 = .Range("C14").Value


Clause1 = (val_C9 = "CP18" Or val_C9 = "CP18 TM" Or val_C9 = "CP21" Or val_C9 = "M21Z" Or val_C9 = "M25Z")
Clause2 = (val_C9 = "CP30" Or val_C9 = "M30Z")
Clause3 = (val_C9 = "CP45")


Clause4 = (val_C9 = "M1" Or val_C9 = "M1P" Or val_C9 = "M1C" Or val_C9 = "M1CR" Or val_C9 = "M1T" Or _
val_C9 = "M1TR" Or val_C9 = "H1J" Or val_C9 = "H1JR" Or val_C9 = "HN1")


Clause5 = (val_C9 = "M1.25" Or val_C9 = "H1.25" Or val_C9 = "H1.25J")
Clause6 = (val_C9 = "M2.25" Or val_C9 = "H2.25" Or val_C9 = "M2.5" Or val_C9 = "M3" Or val_C9 = "H3N" Or val_C9 = "H3J")


'Clause1 = (val_C9 = "CP18" Or val_C9 = "CP18 TM" Or val_C9 = "CP21" Or val_C9 = "M21Z" Or val_C9 = "M25Z")
If counter <= 0 And val_chk1 = False And val_C14 <= 0 And Clause1 Then
Sheets(a1).Select
ElseIf counter <= 0 And val_chk1 = False And Not val_C14 <= 0 And Clause1 Then
Sheets(b1).Select
ElseIf Not counter <= 0 And val_chk1 = False And val_C14 <= 0 And Clause1 Then
Sheets(cx1).Select
ElseIf Not counter <= 0 And val_chk1 = False And Not val_C14 <= 0 And Clause1 Then
Sheets(dx1).Select
ElseIf counter <= 0 And val_chk1 = True And val_C14 <= 0 And Clause1 Then
Sheets(e1).Select
ElseIf counter <= 0 And val_chk1 = True And Not val_C14 <= 0 And Clause1 Then
Sheets(g1).Select
ElseIf Not counter <= 0 And val_chk1 = True And val_C14 <= 0 And Clause1 Then
Sheets(f1).Select
ElseIf Not counter <= 0 And val_chk1 = True And Not val_C14 <= 0 And Clause1 Then
Sheets(h1).Select

'Clause2 = (val_C9 = "CP30" Or val_C9 = "M30Z")
ElseIf counter <= 0 And val_chk1 = False And val_C14 <= 0 And Clause2 Then
Sheets(a2).Select
ElseIf counter <= 0 And val_chk1 = False And Not val_C14 <= 0 And Clause2 Then
Sheets(b2).Select
ElseIf Not counter <= 0 And val_chk1 = False And val_C14 <= 0 And Clause2 Then
Sheets(cx2).Select
ElseIf Not counter <= 0 And val_chk1 = False And Not val_C14 <= 0 And Clause2 Then
Sheets(dx2).Select
ElseIf counter <= 0 And val_chk1 = True And val_C14 <= 0 And Clause2 Then
Sheets(e2).Select
ElseIf counter <= 0 And val_chk1 = True And Not val_C14 <= 0 And Clause2 Then
Sheets(g2).Select
ElseIf Not counter <= 0 And val_chk1 = True And val_C14 <= 0 And Clause2 Then
Sheets(f2).Select
ElseIf Not counter <= 0 And val_chk1 = True And Not val_C14 <= 0 And Clause2 Then
Sheets(h2).Select
ElseIf counter <= 0 And val_chk1 = False And val_chk6 = True And Clause2 Then
Sheets(i2).Select
ElseIf Not counter <= 0 And val_chk1 = False And val_chk6 = True And Clause2 Then
Sheets(j2).Select
ElseIf counter <= 0 And val_chk1 = True And val_chk6 = True And Clause2 Then
Sheets(k2).Select
ElseIf Not counter <= 0 And val_chk1 = True And val_chk6 = True And Clause2 Then
Sheets(l2).Select

'Clause3 = (val_C9 = "CP45")
ElseIf counter <= 0 And val_chk1 = False And val_C14 <= 0 And Clause3 Then
Sheets(a3).Select
ElseIf counter <= 0 And val_chk1 = False And Not val_C14 <= 0 And Clause3 Then
Sheets(b3).Select
ElseIf Not counter <= 0 And val_chk1 = False And val_C14 <= 0 And Clause3 Then
Sheets(cx3).Select
ElseIf Not counter <= 0 And val_chk1 = False And Not val_C14 <= 0 And Clause3 Then
Sheets(dx3).Select
ElseIf counter <= 0 And val_chk1 = True And val_C14 <= 0 And Clause3 Then
Sheets(e3).Select
ElseIf counter <= 0 And val_chk1 = True And Not val_C14 <= 0 And Clause3 Then
Sheets(g3).Select
ElseIf Not counter <= 0 And val_chk1 = True And val_C14 <= 0 And Clause3 Then
Sheets(f3).Select
ElseIf Not counter <= 0 And val_chk1 = True And Not val_C14 <= 0 And Clause3 Then
Sheets(h3).Select
ElseIf counter <= 0 And val_chk1 = False And val_chk6 = True And Clause3 Then
Sheets(i3).Select
ElseIf Not counter <= 0 And val_chk1 = False And val_chk6 = True And Clause3 Then
Sheets(j3).Select
ElseIf counter <= 0 And val_chk1 = True And val_chk6 = True And Clause3 Then
Sheets(k3).Select
ElseIf Not counter <= 0 And val_chk1 = True And val_chk6 = True And Clause3 Then
Sheets(l3).Select

'Clause4 = (val_C9 = "M1" Or val_C9 = "M1P" Or val_C9 = "M1C" Or val_C9 = "M1CR" Or val_C9 = "M1T" Or _
val_C9 = "M1TR" Or val_C9 = "H1J" Or val_C9 = "H1JR" Or val_C9 = "HN1")
ElseIf counter <= 0 And val_chk1 = False And val_C14 <= 0 And Clause4 Then
Sheets(a4).Select
ElseIf counter <= 0 And val_chk1 = False And Not val_C14 <= 0 And Clause4 Then
Sheets(b4).Select
ElseIf Not counter <= 0 And val_chk1 = False And val_C14 <= 0 And Clause4 Then
Sheets(cx4).Select
ElseIf Not counter <= 0 And val_chk1 = False And Not val_C14 <= 0 And Clause4 Then
Sheets(dx4).Select
ElseIf counter <= 0 And val_chk1 = True And val_C14 <= 0 And Clause4 Then
Sheets(e4).Select
ElseIf counter <= 0 And val_chk1 = True And Not val_C14 <= 0 And Clause4 Then
Sheets(g4).Select
ElseIf Not counter <= 0 And val_chk1 = True And val_C14 <= 0 And Clause4 Then
Sheets(f4).Select
ElseIf Not counter <= 0 And val_chk1 = True And Not val_C14 <= 0 And Clause4 Then
Sheets(h4).Select
ElseIf counter <= 0 And val_chk1 = False And val_chk6 = True And Clause4 Then
Sheets(i4).Select
ElseIf Not counter <= 0 And val_chk1 = False And val_chk6 = True And Clause4 Then
Sheets(j4).Select
ElseIf counter <= 0 And val_chk1 = True And val_chk6 = True And Clause4 Then
Sheets(k4).Select
ElseIf Not counter <= 0 And val_chk1 = True And val_chk6 = True And Clause4 Then
Sheets(l4).Select


'Clause5 = (val_C9 = "M1.25" Or val_C9 = "H1.25" Or val_C9 = "H1.25J")
ElseIf counter <= 0 And val_chk1 = False And val_C14 <= 0 And Clause5 Then
Sheets(a5).Select
ElseIf counter <= 0 And val_chk1 = False And Not val_C14 <= 0 And Clause5 Then
Sheets(b5).Select
ElseIf Not counter <= 0 And val_chk1 = False And val_C14 <= 0 And Clause5 Then
Sheets(cx5).Select
ElseIf Not counter <= 0 And val_chk1 = False And Not val_C14 <= 0 And Clause5 Then
Sheets(dx5).Select
ElseIf counter <= 0 And val_chk1 = True And val_C14 <= 0 And Clause5 Then
Sheets(e5).Select
ElseIf counter <= 0 And val_chk1 = True And Not val_C14 <= 0 And Clause5 Then
Sheets(g5).Select
ElseIf Not counter <= 0 And val_chk1 = True And val_C14 <= 0 And Clause5 Then
Sheets(f5).Select
ElseIf Not counter <= 0 And val_chk1 = True And Not val_C14 <= 0 And Clause5 Then
Sheets(h5).Select
ElseIf counter <= 0 And val_chk1 = False And val_chk6 = True And Clause5 Then
Sheets(i5).Select
ElseIf Not counter <= 0 And val_chk1 = False And val_chk6 = True And Clause5 Then
Sheets(j5).Select
ElseIf counter <= 0 And val_chk1 = True And val_chk6 = True And Clause5 Then
Sheets(k5).Select
ElseIf Not counter <= 0 And val_chk1 = True And val_chk6 = True And Clause5 Then
Sheets(l5).Select


'Clause6 = (val_C9 = "M2.25" Or val_C9 = "H2.25" Or val_C9 = "M2.5" Or val_C9 = "M3" Or val_C9 = "H3N" Or val_C9 = "H3J")
ElseIf counter <= 0 And val_chk1 = False And val_C14 <= 0 And Clause6 Then
Sheets(a6).Select
ElseIf counter <= 0 And val_chk1 = False And Not val_C14 <= 0 And Clause6 Then
Sheets(b6).Select
ElseIf Not counter <= 0 And val_chk1 = False And val_C14 <= 0 And Clause6 Then
Sheets(cx6).Select
ElseIf Not counter <= 0 And val_chk1 = False And Not val_C14 <= 0 And Clause6 Then
Sheets(dx6).Select
ElseIf counter <= 0 And val_chk1 = True And val_C14 <= 0 And Clause6 Then
Sheets(e6).Select
ElseIf counter <= 0 And val_chk1 = True And Not val_C14 <= 0 And Clause6 Then
Sheets(g6).Select
ElseIf Not counter <= 0 And val_chk1 = True And val_C14 <= 0 And Clause6 Then
Sheets(f6).Select
ElseIf Not counter <= 0 And val_chk1 = True And Not val_C14 <= 0 And Clause6 Then
Sheets(h6).Select
ElseIf counter <= 0 And val_chk1 = False And val_chk6 = True And Clause6 Then
Sheets(i6).Select
ElseIf Not counter <= 0 And val_chk1 = False And val_chk6 = True And Clause6 Then
Sheets(j6).Select
ElseIf counter <= 0 And val_chk1 = True And val_chk6 = True And Clause6 Then
Sheets(k6).Select
ElseIf Not counter <= 0 And val_chk1 = True And val_chk6 = True And Clause6 Then
Sheets(l6).Select
End If


End With 'Sheets("Data")


ActiveSheet.ExportAsFixedFormat xlTypePDF, pdf, xlQualityStandard, True, False, , , True


Sheets(1).Select 'ungroup sheets
'After export hide sheets
MakeVisible a1, a2, a3, a4, a5, a6
MakeVisible b1, b2, b3, b4, b5, b6
MakeVisible e1, e2, e3, e4, e5, e6
MakeVisible f1, f2, f3, f4, f5, f6
MakeVisible g1, g2, g3, g4, g5, g6
MakeVisible h1, h2, h3, h4, h5, h6
MakeVisible i2, i3, i4, i5, i6
MakeVisible j2, j3, j4, j5, j6
MakeVisible k2, k3, k4, k5, k6
MakeVisible l2, l3, l4, l5, l6
MakeVisible cx1, cx2, cx3, cx4, cx5, cx6
MakeVisible dx1, dx2, dx3, dx4, dx5, dx6
End Sub




Public Function SheetVisibility(ByRef ary As Variant, ByRef sht As Variant)
Dim i As Long


For i = LBound(sht) To UBound(sht)


ary(i) = Worksheets(sht(i)).Visible
Worksheets(sht(i)).Visible = xlSheetVisible
Next i
End Function




Public Function MakeVisible(ParamArray ary())
Dim i As Long, ii As Long


For i = LBound(ary) To UBound(ary)


For ii = LBound(ary(i)) To UBound(ary(i))


Worksheets(ary(i)(ii)).Visible = xlSheetVisible
Next ii
Next i
End FunctionIn this way, the original code was reduced by more than half.

Artik

[p45cal]

In your code:
'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 iyou seem to be storing the original visibility of the sheet, presumably for later use to restore the visibility to what it was?
Your arrays of sheet names contain repeats of the same sheet; for example all your arrays contain Sheet1 as the first sheet.
So in the first For Next loop above, when i = 0, you're putting the original visibility of Sheet1 into aa1(i), then immediately setting that sheet's visibility to xlSheetVisible, then in the second For Next loop, again you look at Sheet1, but this time its visibility is guaranteed to be xlSheetVisible because you've just made it so!

I'm guessing you want to record each sheet's visibility for later use, and since you've got about 20 sheets you can do something like:
Set mySheets = Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "M1", "H3", "CP18", "CP30", "M1.25", "CP45", "Sheet3.a", "Sheet7", "Sheet11", "Sheet3.b", "Sheet9", "Sheet10", "Sheet3.c", "Sheet2a"))
'Record each sheet's visibility:
ReDim SheetVisibility(1 To mySheets.Count)
idx = 1
For Each sht In mySheets
SheetVisibility(idx) = sht.Visible
sht.Visible = xlSheetVisible
idx = idx + 1
Next sht

'do any processing with the now visible sheets…

'then later restore visibility of each sheet to what it was:
idx = 1
For Each sht In mySheets
sht.Visible = SheetVisibility(idx)
idx = idx + 1
Next sht


Also
'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 ccan be brought down to one line:

counter = Application.CountIf(Sheets("Data").Range("H34:H749"), "Value is exceed more than ±0.25% of weigher max value")


I feel there must be some logic behind the decisions of which sheets you want to output; It looks like you decide on 5 things:

counter being greater than zero or not
CheckBox1 being ticked or not
CheckBox6 being ticked or not
cell C14 being greater than zero or not
The contents of cell C9, specifically in one of these 6 lists:

"M1","M1P","M1C","M1CR","M1T","M1TR","H1J","H1JR","HN1"
"M2.25","H2.25","M2.5","M3","H3N","H3J"
"CP18","CP18TM","CP21","M21Z","M25Z"
"CP30","M30Z"
"M1.25","H1.25","H1.25J"
"CP45"


I imagine that each of those 5 things will have a specific influence on which sheets to print/avoid exporting, so if you were to guide us a bit on what those might be the code could be very much shorter.

[Paul_Hossler]

I can't believe that the 68 arrays are required, and the 60+nested ElseIf's are needed

1. Maybe restructuring would simplify the macro and get you under the limit (sample below)

2. I had done a 'database' worksheet that had the different conditions set that controlled the processing

Maybe sheet names as columns in row 1, and conditions in Col A to D (for ex), with all permutations covered





Option Explicit


Sub Anotherway()
Dim ws As Worksheet
Dim aryVisible() As Variant, aryOutput As Variant
Dim i As Long

'remember ws visibility and make visible
ReDim aryVisible(1 To Worksheets.Count, 1 To 1)

For i = 1 To Worksheets.Count
aryVisible(i, 1) = Worksheets(i).Name
aryVisible(i, 2) = Worksheets(i).Visible
Worksheets(i).Visible = xlSheetVisible
Next i


' ......
With Sheets("Data")

If counter <= 0 Then
If .Range("C14").Value <= 0 Then
If .CheckBox1.Value = True Then

Select Case .Range("C9").Value
Case "CP18", "CP18 TM", "CP21", "M21Z", "M25Z"
aryoutput = array ("Sheet1", ............)
Case "CP30", "M30Z"
aryoutput = array ("Sheet1a", ............)



case .....


case ....


End Select

Else ' Checkbox 1 false
Select Case .Range("C9").Value
Case "CP18", "CP18 TM", "CP21", "M21Z", "M25Z"
aryoutput = array ("Shee2", ............)
Case "CP30", "M30Z"
aryoutput = array ("Sheet2b", ............)



case ....


case ....


End Select
End If

Else ' C14 > 0
If .CheckBox1.Value = True Then

Select Case .Range("C9").Value
Case "CP18", "CP18 TM", "CP21", "M21Z", "M25Z"
aryoutput = array ("Sheet1", ............)
Case "CP30", "M30Z"
aryoutput = array ("Sheet1", ............)



case ....


case ....


End Select

Else ' Checkbox 1 false
Select Case .Range("C9").Value
Case "CP18", "CP18 TM", "CP21", "M21Z", "M25Z"
aryoutput = array ("Sheet1", ............)
Case "CP30", "M30Z"
aryoutput = array ("Sheet1", ............)



case ....


case ....


End Select
End If

End If
End If
End With


' ......

'return ws visibility status
For i = LBound(aryVisible, 1) To UBound(aryVisible, 1)
Worksheets(aryVisible(i, 1)).Visible = Worksheets(aryVisible(i, 2))
Next i


End Sub

[elsuji]

Dear All,

My problem is solved. Thanks for your valuable reply.

[p45cal]

The following completely replaces that in your msg#1:
Sub Calibration_Certificate_Print_withLOGO()
pdf = ThisWorkbook.FullName
Set mySheets = Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet8", "M1", "H3", "CP18", "CP30", "M1.25", "CP45", "Sheet3.a", "Sheet7", "Sheet11", "Sheet3.b", "Sheet9", "Sheet10", "Sheet3.c", "Sheet2a"))
ReDim SheetVisibility(1 To mySheets.Count)
idx = 1
For Each sht In mySheets
SheetVisibility(idx) = sht.Visible
sht.Visible = xlSheetVisible
idx = idx + 1
Next sht
'Arrays used later to decide the final sheet according to which of these 6 groups cell C9's value finds itself in:
Dim GAry(1 To 6), SheetOut(1 To 6)
GAry(1) = Array("M1", "M1P", "M1C", "M1CR", "M1T", "M1TR", "H1J", "H1JR", "HN1"): SheetOut(1) = "M1"
GAry(2) = Array("M2.25", "H2.25", "M2.5", "M3", "H3N", "H3J"): SheetOut(2) = "H3"
GAry(3) = Array("CP18", "CP18 TM", "CP21", "M21Z", "M25Z"): SheetOut(3) = "CP18"
GAry(4) = Array("CP30", "M30Z"): SheetOut(4) = "CP30"
GAry(5) = Array("M1.25", "H1.25", "H1.25J"): SheetOut(5) = "M1.25"
GAry(6) = Array("CP45"): SheetOut(6) = "CP45"

'Assign values to some variables:
counter = Application.CountIf(Sheets("Data").Range("H34:H749"), "Value is exceed more than ±0.25% of weigher max value")
RngC9 = Sheets("Data").Range("C9").Value
RngC14 = Sheets("Data").Range("C14").Value
Cbx1 = Sheets("Data").CheckBox1.Value
'Cbx6 = not used, doesn't influence output.

myString = "Sheet1" 'all outputs start with Sheet1
myString = myString & "," & Application.Index([{"Sheet2","Sheet2a"}], Application.Match(counter, [{0,1}])) 'Sheet2 or Sheet2a according to counter.
'which of the 4 variants of sheet 3 output depending on CheckBox1 and what's in cell C14:
myString = myString & "," & Application.Index([{"sheet3.b","sheet3.c";"sheet3","sheet3.a"}], Application.Match(Cbx1, [{TRUE,FALSE}], 0), Application.Match(RngC14, [{0,1}]))
myString = myString & ",Sheet4" 'all outputs include sheet4
myString = myString & "," & Application.Index([{"Sheet5,Sheet6","Sheet7"}], Application.Match(RngC14, [{0,1}])) 'whether to include both Sheet5 and Sheet6, or just Sheet7 according to cell C14
myString = myString & "," & Application.Index([{"Sheet9,Sheet10","Sheet8"}], Application.Match(Cbx1, [{TRUE,FALSE}], 0)) 'whether to include both Sheet9 and Sheet10, or just Sheet8 according to CheckBox1
'Decide which final sheet to add according to cell C9:
For j = 1 To 6
x = Application.Match(RngC9, GAry(j), 0)
If Not IsError(x) Then
myString = myString & "," & SheetOut(j)
Exit For
End If
Next j
myArray = Split(myString, ",")
'select the sheets:
Sheets(myArray).Select
ActiveSheet.ExportAsFixedFormat xlTypePDF, pdf, xlQualityStandard, True, False, , , True 'I've made no changes to this line.

Sheets(1).Select 'ungroup sheets.
'restore visibility of each sheet to what it was:
idx = 1
For Each sht In mySheets
sht.Visible = SheetVisibility(idx)
idx = idx + 1
Next sht
End Sub
I hope I've got all the sheet names right.
I've tested the logic thoroughly and it returns the same results as your macro (all combinations tested), but I haven't tested this macro itself (I'd have to do a mock-up of your workbook with all its sheets).

[Artik]

p45cal, I admire :clap2: the in-depth code analysis.

Artik

[p45cal]

so if you were to guide us a bit on what those might be the code could be very much shorter.Stealing from Paul Hossler, and if you can stomach a ridiculously long line of code, and it can be cut to:
Sub Calibration_Certificate_Print_withLOGO3()
pdf = ThisWorkbook.FullName
'Store visibility of all sheets and make all sheets visible:
ReDim aryVisible(1 To Worksheets.Count, 1 To 2)
For i = 1 To Worksheets.Count
aryVisible(i, 1) = Worksheets(i).Name
aryVisible(i, 2) = Worksheets(i).Visible
Worksheets(i).Visible = xlSheetVisible
Next i
'Decide which final sheet to add according to cell C9:
Select Case Sheets("Data").Range("C9").Value
Case "M1", "M1P", "M1C", "M1CR", "M1T", "M1TR", "H1J", "H1JR", "HN1": LastSht = "M1"
Case "M2.25", "H2.25", "M2.5", "M3", "H3N", "H3J": LastSht = "H3"
Case "CP18", "CP18 TM", "CP21", "M21Z", "M25Z": LastSht = "CP18"
Case "CP30", "M30Z": LastSht = "CP30"
Case "M1.25", "H1.25", "H1.25J": LastSht = "M1.25"
Case "CP45": LastSht = "CP45"
End Select
'Assign values to some variables:
RngC14 = Sheets("Data").Range("C14").Value
Cbx1 = Sheets("Data").CheckBox1.Value
'select the sheets:
Sheets(Split("Sheet1," & Application.Index([{"Sheet2,","Sheet2a,"}], Application.Match(Application.CountIf(Sheets("Data").Range("H34:H749"), "Value is exceed more than ±0.25% of weigher max value"), [{0,1}])) & Application.Index([{"sheet3.b,","sheet3.c,";"sheet3,","sheet3.a,"}], Application.Match(Cbx1, [{TRUE,FALSE}], 0), Application.Match(RngC14, [{0,1}])) & "Sheet4," & Application.Index([{"Sheet5,Sheet6,","Sheet7,"}], Application.Match(RngC14, [{0,1}])) & Application.Index([{"Sheet9,Sheet10,","Sheet8,"}], Application.Match(Cbx1, [{TRUE,FALSE}], 0)) & LastSht, ",")).Select
ActiveSheet.ExportAsFixedFormat xlTypePDF, pdf, xlQualityStandard, True, False, , , True 'I've made no changes to this line.
Sheets(1).Select 'ungroup sheets.
'restore visibility of each sheet to what it was:
For i = 1 To UBound(aryVisible)
Worksheets(aryVisible(i, 1)).Visible = aryVisible(i, 2)
Next i
End Sub

[Paul_Hossler]

Plowing through the OP's #1, there's Checkbox6 in maybe 1/2 the lines that I don't see you addressing????





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


The logic is so complicated (convoluted?) that maybe a database of sheets to include based on settings????

25674

[p45cal]

Yes, that's true; my only reference to it was a glib comment in the code in msg#9: 'Cbx6 = not used, doesn't influence output.
This was because while trying to reverse engineer the logic I created a table of all possibilities (a table that could be used as your database by the way) using the OP's own code and long ElseIf statement, and played about with it, sorting by various columns and I think that I was able to spot that checkbox6 didn't change the result - but it only takes one instance to blow my ideas out of the water (Rutherford knew all about that).
Looking at the your specific example, I filtered the resulting table according to that line (note there's no mention of cell C14 in that one) and I got 4 results:
25675

If we split that by including, then not including C14 we get:
25676

and:
25677

I later did this for all values of C9, (not just those in that part of the statement) from which I conclude (in this case) that checkbox6 makes no difference.

My final test of the whole lot was to compare the outputs using (a) the OP's code and (b) my logic code - luckily for me, they were exactly the same.

[Paul_Hossler]

Wow!!! :thumb

You took a MUCH deeper dive in your #11 than I wanted to

I did a 'Find' on your code for "CheckBox6" and didn't see any instances, so that's why I wondered if you addressed it

Since the OP had CB6 = True specifically, I assumed that the assumption was that if it was unspecified then the test in the unmentioned lines was for = False

For your RngC9 column, I was thinking of 'stringing' the values that pass that test togeather, and using Instr () to select the right row. Since there's 5-6 C9 values that get processed the same, I figured that would cut the number of lines by ~80%

Bottom line -- a 'database' worksheet is the way to go to make it more maintainable and a lot less error prone

[p45cal]

For your RngC9 column, I was thinking of 'stringing' the values that pass that test together, and using Instr() to select the right row. Since there's 5-6 C9 values that get processed the same, I figured that would cut the number of lines by ~80%Agreed - some 48 rows only given that cbox6 is not needed, that's 3 binary options and one with 6 possibilities =2x2x2x6.


Bottom line -- a 'database' worksheet is the way to go to make it more maintainable and a lot less error proneQuite so.

It's a pity the OP has only responded with a solved statement and hasn't responded to any questions we had.

I know you can do it yourself, but if you want any code snippets to create a table, just mention it.