|This code will build the Sheet Name by using the date stored in the cell.|
BTW...you don't have to Select the ActiveSheet, it's already "selected" since it's Active.
In addition, you rarely have to Select an object to perform a VBA Action on it.
ActiveSheet.Name = "My Sheet Name"
Sheets(1).Name = "My Sheet Name"
is more efficient.
The same goes for cell ranges, text boxes, whatever.
Selection.Interior.ColorIndex = 3
Range("A1:A100").Interior.ColorIndex = 3
myShtName = Month(Range("A47")) _
& "-" & Day(Range("A47")) _
& "-" & Year(Range("A47"))
ActiveSheet.Name = myShtName