Como modificar esta macro

Estimados favor su ayuda necesito modificar esta macro para que se guarde con con el nombre de la celda D 5

Les dejo la macro.

Dim dia As String
Dim tim As String
Dim nom As String
Dim ext As String
Dim Path As String
dia = Format(Date, "dd-mm-yyyy ")
tim = Format(Time(), "hh-mm-ss")
ext = ".xls"
nom = nom + " " + dia + tim & ".xls"
MsgBox "este es el nombre del archivo: SALDO PROMEDIO CUSTODIA"" " & nom
Path = "d:\Saldo promedio custodia" & nom
ActiveWorkbook.SaveAs Filename:=Path, FileFormat:=xlNormal
ActiveWorkbook.Close
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Range("P3").Value
.CC = Range("l2").Value
.BCC = ""
.Subject = "Proyección de saldos por etv" + " " + "del" + " " + Str(Date)
.Body = "Buenas Tardes:" + Chr(13) + Chr(13) + "Adjunto envío a usted informe de la referencia" + Chr(13) + Chr(13) + "Saludos."
.attachments.Add "D:\Saldo promedio custodia" & nom
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
ActiveWindow.Close
Application.Quit
ActiveWorkbook.Close False
End Sub