Dynamic Sheet name in Excel as DATE
<p>i found a code on the internet and tried it out. The code works. but my concern is that i wish to rename the sheet as Date. or at least allow the code to read the format mm/dd/yyyy from the cell. </p>

<p>here is the sample of the code:</p>

<pre><code>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set Target = Range("A1")
    If Target = "" Then Exit Sub
    Application.ActiveSheet.Name = VBA.Left(Target, 31)
End Sub
</code></pre>

<p>if the value of A1 is 06/01/2016, i would like to have my sheet name as Jun01,2016 or at least have the name as Date.</p>

<p>Note.. i also tried other suggestion(s) from other sites but still not working</p>