Looping through months VBA code

thank you so much for your response. i have made the changes as per your suggestion. However, now i am receiving 'subscript out of range' error.

below is the current code

Private Sub monthlist_Change()

Dim myarray As Variant
Dim x As Long

myarray = Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")

For x = LBound(myarray) To UBound(myarray)


If Me.monthlist.Text = myarray(x) Then Me.sdmteamcount.Value = Worksheets("Functions -" & myarray(x)).Range("q12").Value


Next x
End Sub

thanks again