Hi all, I am using the code below, to pick up cell entries, and show them on command buttons, it works to a degree
the commandbutton1 caption shows, but only when I enter target value as 2, commandbuttons 1 and 2 show correct when I enter target value as 3, and so on, can anyone see what I have got wrong in the code please

scouse13


Private Sub worksheet_change(ByVal Target As Range)
    If Target.Address(0, 0) = "D9" Then
        If Target.value = isblank Then
          Range("B10:b14").ClearContents
          Range("D10:D14").ClearContents
        ElseIf Target.value = 1 Then
          Range("B10").value = "Grade 1"
          Sheets("MainMenu").CommandButton1.Caption = Range("D10").value
         ElseIf Target.value = 2 Then
          Range("B10").value = "Grade 1"
          Range("B11").value = "Grade 2"
          Sheets("MainMenu").CommandButton1.Caption = Range("D10").value
          Sheets("MainMenu").CommandButton2.Caption = Range("D11").value
        ElseIf Target.value = 3 Then
          Range("B10").value = "Grade 1"
          Range("B11").value = "Grade 2"
          Range("B12").value = "Grade 3"
          Sheets("MainMenu").CommandButton1.Caption = Range("D10").value
          Sheets("MainMenu").CommandButton2.Caption = Range("D11").value
          Sheets("MainMenu").CommandButton3.Caption = Range("D12").value
        ElseIf Target.value = 4 Then
          Range("B10").value = "Grade 1"
          Range("B11").value = "Grade 2"
          Range("B12").value = "Grade 3"
          Range("B13").value = "Grade 4"
          Sheets("MainMenu").CommandButton1.Caption = Range("D10").value
          Sheets("MainMenu").CommandButton2.Caption = Range("D11").value
          Sheets("MainMenu").CommandButton3.Caption = Range("D12").value
          Sheets("MainMenu").CommandButton4.Caption = Range("D13").value
        ElseIf Target.value = 5 Then
          Range("B10").value = "Grade 1"
          Range("B11").value = "Grade 2"
          Range("B12").value = "Grade 3"
          Range("B13").value = "Grade 4"
          Range("B14").value = "Grade 5"
          Sheets("MainMenu").CommandButton1.Caption = Range("D10").value
          Sheets("MainMenu").CommandButton2.Caption = Range("D11").value
          Sheets("MainMenu").CommandButton3.Caption = Range("D12").value
          Sheets("MainMenu").CommandButton4.Caption = Range("D13").value
          Sheets("MainMenu").CommandButton5.Caption = Range("D14").value
        End If
        End If
End Sub