Sub SelectMarch()
 Dim first As Range, last As Range
 ' Find the first and last cells for March.
 FindLike "3*",first,last
 ' Select the range.
 Range(first,last).Select
End Sub

Sub FindLike(str As String, first As Range, _
 last As Range)
 Dim cel As Range, i As Integer
 For Each cel In ActiveSheet.UsedRange
 If (cel.Value Like str) Then
 i=i+1
 If i=1 Then Set first=cel
 Set last=cel
 End If
 Next
End Sub