Look at:

Sub Macro1()
Range("H1").Value = Application.Text(Range("F1").Value, "m/d;@") & "-" &
Application.Text(Range("G1").Value, "m/d;@")
End Sub


with dates in F1 and G1
--
Gary''s Student


"don" wrote:

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