Private Sub Detail_Format
(Cancel As Integer, FormatCount As Integer)
If A3 = 0 Then
A3.Visible = False
Else
A3.Visible = True
End If
If A4 = 0 Then
A4.Visible = False
Else
A4.Visible = True
End If
If A7 = 0 Then
A7.Visible = False
Else
A7.Visible = True
End If
If A8 = 0 Then
A8.Visible = False
Else
A8.Visible = True
End If
If A9 = 0 Then
A9.Visible = False
Else
A9.Visible = True
End If
If A11 = 0 Then
A11.Visible = False
Else
A11.Visible = True
End If
If A12 = 0 Then
A12.Visible = False
Else
A12.Visible = True
End If
If A13 = 0 Then
A13.Visible = False
Else
A13.Visible = True
End If