Is This what you mean
Sub Gotodate()
Dim dt As String
dt = Format(Now(), "mm-dd-yyyy")
With Sheets(dt)
.Range("b4").Value = "Selected"
End With
End Sub