I have a program that finds rolling 1 - 30 aged data.
The heading has 1 - 30
above that I would like to put the dates, such as 1/18 - 2/17
The below subroutine does that except the dates show the year also.

Any ideas on how to have it show what I want.
Thanks
Don

Sub concatenate()
Range("A12").NumberFormat = "m/d"
Range("a16") = Range("A12") & " - " & Range("B12")
Range("A16").NumberFormat = "m/d"

End Sub