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