vb code for selecting a range by using command button

Hi expert,

question: there is a command button in a sheet and some data. on the 1st
click on command button i want to select range a1:d12 on the second click
deselect the previous selection and select range a13:d24 and at last on the
3rd click select the range a25:d36.

i am tying to code it in VB.

can you help me out.

Regards
Anish

Dim iCount As Integer Private

Dim iCount As Integer

Private Sub CommandButton1_Click()

Select Case iCount
Case 0
Range("A1:D12").Select
iCount = iCount + 1
Case 1
Range("E1:H12").Select
iCount = iCount + 1
Case 2
Range("I1:L12").Select
iCount = 0
End Select

End Sub