Month? Question:1=Jan.,2=Feb.,3=Mar.ect

redd

Board Regular
Joined
Jan 16, 2005
Messages
109
I would like to put in cell 1a, 1.Cell 1a would show Jan.,2=Feb.,7=Jul.ect.
 

Scott Huish

MrExcel MVP
Joined
Mar 17, 2004
Messages
19,839
Perhaps:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Target.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
    Target = Format(DateSerial(1, Target, 1), "mmm")
Application.EnableEvents = True
End Sub
 

Forum statistics

Threads
1,078,253
Messages
5,339,105
Members
399,278
Latest member
randomNumberGenerator2211

Some videos you may like

This Week's Hot Topics

Top