I have weveral worksheets that have the months listed across the top of the
table. The months are listed in a three letter format (ex. - Jan Feb Mar
etc.)
These columns shift each month. However, because some worksheets get
updated and others don't, one worksheet's columns may not get shifted when
others do.

If I type "Jan" in A1 and then fill to the right through "Dec", it fills
with 3-letter formats. However, when the first cell is "May", it fills
using the full month name. Is there a way to reformat these cells to the
3-letter format of the month name? I'm doing all of this (copying,
pasting/fill right) via a macro.

I'm using the following code where Q1 = the month name in a 3-letter format

Range("B25").Select
Selection.Value = Sheets("Data").Range("Q1").Value
Selection.AutoFill Destination:=Range("B25:M25"), Type:=xlFillDefault


Thanks in advance,
Paul