Rename Sheet with date and string

My code for renaming sheet using date in a range works but I can't seem to modify it correctly to also include a text string.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A7")) Is Nothing Then

    If Range("A7") = Empty Then
        ActiveSheet.Name = "Event" & ActiveSheet.Index - 1
    Else
        ActiveSheet.Name = Format(Range("A7").Value, ("mmmd"))
        End If
End If
End Sub

"8/1/23" date is in A7. "Meet&Greet" is string is in G7:

Current code works and renames sheet "Sep23" but I want it to read "Aug23-Meet&Greet".

Thank you for your help!