Sub Impression()
Dim Sh As Shape
For Each Sh In Worksheets("Edition").Shapes
If TypeName(Sh.OLEFormat.Object) = "CheckBox" Then
With Sh.OLEFormat.Object
If .Value = 1 Then
Worksheets(.Caption).Select False
End If
End With
End If
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Temp\test.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Sheets("EDITION").Select
End Sub