Making the date column read left letters from sheet name

[georgiboy]

Maybe:

Aprils = Left(ActiveSheet.Name, 7)

If you want to make the active sheet name become todays date then maybe:

ActiveSheet.Name = Format(Date, "yyyy.mm.dd")