Private Sub Worksheet_Change(ByVal Target As Range)
If Range("H13") = "" Then Me.Shapes("btn_gotoContratH13").Visible = (Cells(8, 13).Value = 1) And _
Me.Shapes("btn_addNewH13").Visible = (Cells(8, 13).Value = 1)
If Range("H14") = "" Then Me.Shapes("btn_gotoContratH14").Visible = (Cells(8, 14).Value = 1) And _
Me.Shapes("btn_addNewH14").Visible = (Cells(8, 14).Value = 1)
If Range("H15") = "" Then Me.Shapes("btn_gotoContratH15").Visible = (Cells(8, 15).Value = 1) And _
Me.Shapes("btn_addNewH15").Visible = (Cells(8, 15).Value = 1)
If Range("H16") = "" Then Me.Shapes("btn_gotoContratH16").Visible = (Cells(8, 16).Value = 1) And _
Me.Shapes("btn_addNewH16").Visible = (Cells(8, 16).Value = 1)
If Range("H17") = "" Then Me.Shapes("btn_gotoContratH17").Visible = (Cells(8, 17).Value = 1) And _
Me.Shapes("btn_addNewH17").Visible = (Cells(8, 17).Value = 1)
End Sub