Drop Down List

[zoom38]

Disreguard, I automatically thought I would lose the drop down list if I forced a value in the cell. The following worked without losing the dropdown list.

Sub ChangeDropDownToJanuary()
    ' Select The "Totals" Worksheet
    Sheets("Totals").Select
    ' Change The Year On The Jan Sheet
    Cells(1, 19).Value = "JANUARY"
End Sub

Thanks
Gary