Here's my take on it:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MonthName As String
If Target.Address = "$F$12" Then
MonthName = Format(Target.Value, "mmmm")
Select Case MonthName
Case "March", "May", "August", "November"
ActiveSheet.Unprotect
Range("H16:H18,H21:H23,H26:H35,H38:H47,H50:H64").Locked = False
Range("D16:H18,D21:H23,D26:H35,D38:H47,D50:H64").ClearContents
Range("D16").Select
Case Else
MsgBox "Month is out of range", vbOKOnly + vbInformation, "Month Out of Range"
End Select
End If
End Sub
BTW: if the macro recorder produces code like:
Something.Select
Selection.Action
You can usually replace it with
I did that with your code.
Bookmarks