Simple VB example code

[This code gets executed when we press the 'Press here to start' label.]

Private Sub Label1_Click()
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
End Sub

[This code gets executed when we press 'Press to Copy A3 value into A5..A14' label]

Private Sub Label2_Click()
Dim i, j As Integer
Dim st As String
st = "A" & Format(3)
Range(st).Select
j = ActiveCell.Value ' copy the value of A3
For i = 5 To 14
    st = "A" & Format(i)
    Range(st).Select
    ActiveCell.Value = j
Next i
End Sub

[This code gets executed when we press 'Press to Reset' label]
Private Sub Label3_Click()
Dim i As Integer
For i = 5 To 14
    st = "A" & Format(i)
    Range(st).Select
    ActiveCell.Value = 0
Next i
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
End Sub

[This code gets executed when we press 'Press to square the values in A5..A14' label]
Private Sub Label4_Click()
Dim i, j As Integer
For i = 5 To 14
    st = "A" & Format(i)
    Range(st).Select
    j = ActiveCell.Value
    ActiveCell.Value = j ^ 2
Next i
End Sub