This is Col C

1-Jun-11
2-Jun-11
3-Jun-11
4-Jun-11
5-Jun-11
6-Jun-11
1-Aug-11
2-Aug-11
3-Aug-11
4-Aug-11
5-Aug-11
6-Aug-11

How to select a range starting from Col A to have only "August" month.

Can you please help me to modify this program: -

[VBA]
Sub seecol()

lastColaddr = ActiveSheet.Range("a1").End(xlToRight).Column
lastRowaddr = ActiveSheet.Cells(65536, lastCol).End(xlUp).Row
ActiveSheet.Range("a1", ActiveSheet.Cells(lastRowaddr, lastColaddr)).Select

End Sub
[/VBA]

Please help me to select a rectangular range to include only "August" month. Range starting from Col A.