Inserimento data corrente con macro (Excel 2016)

[Onda3]

Ciao a tutti,
sono un nuovo utente e spero che possiate aiutarmi..:D
Ho una macro che mi permette di visualizzare la data e l'ora odierna in una determinata cella.
Sarebbe possibile visualizzare solo la data, così che ogni volta che apro il file mi visualizza la data odierna?
Esempio, se domani lo dovessi aprire mi visualizzerà la data: 07 Feb 2019.
Inoltre, sarebbe possibile farlo anche con il nome del file?
Esempio, nome file : Aziende (data odierna)
Di seguito vi posto il codice che uso:
Sub Data_greenwich()
Dim http
Dim GMT_Date
Dim Data
Dim Orario As Date
Dim GMT_Time
Const GMTTime As String = "https://greenwichmeantime.com/clock/standalone?tz=gmt"
Set http = CreateObject("Microsoft.XMLHTTP")
http.Open "GET", GMTTime, False, "", ""
http.Send
GMT_Date = http.getResponseHeader("Date")
Data = Mid$(GMT_Date, 6, Len(GMT_Date) - 12)
Orario = Right(Data, 5)
GMT_Date = Mid$(GMT_Date, 6, Len(GMT_Date) - Cells(1, 2))
Cells(9, 3) = GMT_Date
Set http = Nothing
End Sub
Vi ringrazio anticipatamente per l'aiuto :) :)

[Thoruno]

Ciao a tutti,
sono un nuovo utente e spero che possiate aiutarmi..:D
Ho una macro che mi permette di visualizzare la data e l'ora odierna in una determinata cella.
Sarebbe possibile visualizzare solo la data, così che ogni volta che apro il file mi visualizza la data odierna?
Esempio, se domani lo dovessi aprire mi visualizzerà la data: 07 Feb 2019.
Inoltre, sarebbe possibile farlo anche con il nome del file?
Esempio, nome file : Aziende (data odierna)
Di seguito vi posto il codice che uso:
Sub Data_greenwich()
Dim http
Dim GMT_Date
Dim Data
Dim Orario As Date
Dim GMT_Time
Const GMTTime As String = "https://greenwichmeantime.com/clock/standalone?tz=gmt"
Set http = CreateObject("Microsoft.XMLHTTP")
http.Open "GET", GMTTime, False, "", ""
http.Send
GMT_Date = http.getResponseHeader("Date")
Data = Mid$(GMT_Date, 6, Len(GMT_Date) - 12)
Orario = Right(Data, 5)
GMT_Date = Mid$(GMT_Date, 6, Len(GMT_Date) - Cells(1, 2))
Cells(9, 3) = GMT_Date
Set http = Nothing
End Sub
Vi ringrazio anticipatamente per l'aiuto :) :)

Anche senza macro lo puoi fare.
Vedi allegato, qualsiasi posto metti il file legge la sua posizione.

Ciao