Gary,

You are a genius, I have been struggling with this for hours. Your code
worked great.

"Gary''s Student" wrote:

Try the following event macro:

Private Sub Worksheet_Change(ByVal Target As Range)
Set b2 = Range("B2")
Set t = Target
If Intersect(t, b2) Is Nothing Then Exit Sub
v = b2.Value
If v = "Year" Then
Call yearr
Else
Call monthh
End If
End Sub

Note: I changed the spelling of the called routines to avoid ambiguities.
--
Gary''s Student - gsnu200798


"OsmoseTom" wrote:

I have a data validation list in cell B2. The list consists of two choices
(Year, Month). Based on the users selection I would like to run a macro.
The maros are named Year and Month.