Make code Faster

Can this be made faster? Works but must be cleaner way.
Thanks Z

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If CheckBox1.Value = True Then Range("A3").Value = Range("E34").Value
 If CheckBox1.Value = False Then Range("A3").Value = 0
 If CheckBox2.Value = True Then Range("A4").Value = Range("f34").Value
 If CheckBox2.Value = False Then Range("A4").Value = 0
If CheckBox3.Value = True Then Range("A5").Value = Range("g34").Value
 If CheckBox3.Value = False Then Range("A5").Value = 0
 If CheckBox4.Value = True Then Range("A6").Value = Range("h34").Value
 If CheckBox4.Value = False Then Range("A6").Value = 0
 If CheckBox5.Value = True Then Range("A7").Value = Range("i34").Value
 If CheckBox5.Value = False Then Range("A7").Value = 0
 If Target.Row = 7 And (Target.Row >= 7 And Target.Row <= 7) Then
        Range("c7").Font.ColorIndex = 11
         Range("c7").Font.Underline = True
   Else: Range("c7").Font.ColorIndex = 0
   Range("c7").Font.Underline = False
   End If
   If Target.Row = 8 And (Target.Row >= 8 And Target.Row <= 8) Then
        Range("c8").Font.ColorIndex = 11
         Range("c8").Font.Underline = True
   Else: Range("c8").Font.ColorIndex = 0
   Range("c8").Font.Underline = False
   End If
   If Target.Row = 9 And (Target.Row >= 9 And Target.Row <= 9) Then
        Range("c9").Font.ColorIndex = 11
         Range("c9").Font.Underline = True
   Else: Range("c9").Font.ColorIndex = 0
   Range("c9").Font.Underline = False
   End If
   If Target.Row = 10 And (Target.Row >= 10 And Target.Row <= 10) Then
        Range("c10").Font.ColorIndex = 11
         Range("c10").Font.Underline = True
   Else: Range("c10").Font.ColorIndex = 0
   Range("c10").Font.Underline = False
   End If
   
   If Target.Row = 11 And (Target.Row >= 11 And Target.Row <= 11) Then
        Range("c11").Font.ColorIndex = 11
         Range("c11").Font.Underline = True
   Else: Range("c11").Font.ColorIndex = 0
   Range("c11").Font.Underline = False
   End If
   If Target.Row = 12 And (Target.Row >= 12 And Target.Row <= 12) Then
        Range("c12").Font.ColorIndex = 11
         Range("c12").Font.Underline = True
   Else: Range("c12").Font.ColorIndex = 0
   Range("c12").Font.Underline = False
   End If
   If Target.Row = 13 And (Target.Row >= 13 And Target.Row <= 13) Then
        Range("c13").Font.ColorIndex = 11
         Range("c13").Font.Underline = True
   Else: Range("c13").Font.ColorIndex = 0
   Range("c13").Font.Underline = False
   End If
   If Target.Row = 14 And (Target.Row >= 14 And Target.Row <= 14) Then
        Range("c14").Font.ColorIndex = 11
         Range("c14").Font.Underline = True
   Else: Range("c14").Font.ColorIndex = 0
   Range("c14").Font.Underline = False
   End If
   
   If Target.Row = 15 And (Target.Row >= 15 And Target.Row <= 15) Then
        Range("c15").Font.ColorIndex = 11
         Range("c15").Font.Underline = True
   Else: Range("c15").Font.ColorIndex = 0
   Range("c15").Font.Underline = False
   End If
   If Target.Row = 16 And (Target.Row >= 16 And Target.Row <= 16) Then
        Range("c16").Font.ColorIndex = 11
         Range("c16").Font.Underline = True
   Else: Range("c16").Font.ColorIndex = 0
   Range("c16").Font.Underline = False
   End If
   
   If Target.Row = 17 And (Target.Row >= 17 And Target.Row <= 17) Then
        Range("c17").Font.ColorIndex = 11
         Range("c17").Font.Underline = True
   Else: Range("c17").Font.ColorIndex = 0
   Range("c17").Font.Underline = False
   End If
   If Target.Row = 18 And (Target.Row >= 18 And Target.Row <= 18) Then
        Range("c18").Font.ColorIndex = 11
         Range("c18").Font.Underline = True
   Else: Range("c18").Font.ColorIndex = 0
   Range("c18").Font.Underline = False
   End If
   If Target.Row = 21 And (Target.Row >= 21 And Target.Row <= 21) Then
        Range("c21").Font.ColorIndex = 11
         Range("c21").Font.Underline = True
   Else: Range("c21").Font.ColorIndex = 0
   Range("c21").Font.Underline = False
   End If
   If Target.Row = 22 And (Target.Row >= 22 And Target.Row <= 22) Then
        Range("c22").Font.ColorIndex = 11
         Range("c22").Font.Underline = True
   Else: Range("c22").Font.ColorIndex = 0
   Range("c22").Font.Underline = False
   End If
   If Target.Row = 25 And (Target.Row >= 25 And Target.Row <= 25) Then
        Range("c25").Font.ColorIndex = 11
         Range("c25").Font.Underline = True
   Else: Range("c25").Font.ColorIndex = 0
   Range("c25").Font.Underline = False
   End If
   
   If Target.Row = 26 And (Target.Row >= 26 And Target.Row <= 26) Then
        Range("c26").Font.ColorIndex = 11
         Range("c26").Font.Underline = True
   Else: Range("c26").Font.ColorIndex = 0
   Range("c26").Font.Underline = False
   End If
   If Target.Row = 27 And (Target.Row >= 27 And Target.Row <= 27) Then
        Range("c27").Font.ColorIndex = 11
         Range("c27").Font.Underline = True
   Else: Range("c27").Font.ColorIndex = 0
   Range("c27").Font.Underline = False
   End If
   If Target.Row = 28 And (Target.Row >= 28 And Target.Row <= 28) Then
        Range("c28").Font.ColorIndex = 11
         Range("c28").Font.Underline = True
   Else: Range("c28").Font.ColorIndex = 0
   Range("c28").Font.Underline = False
   End If
   If Target.Row = 29 And (Target.Row >= 29 And Target.Row <= 29) Then
        Range("c29").Font.ColorIndex = 11
         Range("c29").Font.Underline = True
   Else: Range("c29").Font.ColorIndex = 0
   Range("c29").Font.Underline = False
   End If
   If Target.Row = 30 And (Target.Row >= 30 And Target.Row <= 30) Then
        Range("c30").Font.ColorIndex = 11
         Range("c30").Font.Underline = True
   Else: Range("c30").Font.ColorIndex = 0
   Range("c30").Font.Underline = False
   End If
   If Target.Row = 31 And (Target.Row >= 31 And Target.Row <= 31) Then
        Range("c31").Font.ColorIndex = 11
         Range("c31").Font.Underline = True
   Else: Range("c31").Font.ColorIndex = 0
   Range("c31").Font.Underline = False
   End If
   If Target.Row = 32 And (Target.Row >= 32 And Target.Row <= 32) Then
        Range("c32").Font.ColorIndex = 11
         Range("c32").Font.Underline = True
   Else: Range("c32").Font.ColorIndex = 0
   Range("c32").Font.Underline = False
   End If
   If Target.Row = 34 And (Target.Row >= 34 And Target.Row <= 34) Then
        Range("c34").Font.ColorIndex = 11
         Range("c34").Font.Underline = True
   Else: Range("c34").Font.ColorIndex = 0
   Range("c34").Font.Underline = False
   
   End If
 End Sub