Hücrede ki değeri sayfa ismi yap

[ADER_34]

Merhaba çalışma kitabımda Kargo adlı sayfada Adı soy adı yazan hücreyi sayfa ismi olarak kaydetmek istiyorum Kargo butonuna tıkladığımda kodlarıma nasıl bir ilave yapmam gerek kolay gelsin teşekkürler..

Sub İrsaliye_Kaydet()
yol = Environ("USERPROFILE") & "\Desktop\" 'CreateObject("WScript.Shell").SpecialFolders("Desktop")
AD = KARGO & Format(Now, " dd.mm.yyyy_hh/mm")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("GÖNDER").Copy

ActiveWorkbook.SaveAs Filename:=yol & AD & ".xls"
ActiveWorkbook.Close True
Application.ScreenUpdating = True
End Sub

 

[TanerSaydam]

Örnek olarak A1 Hücresinde Adı B1 Hücresinde Soyadı varsayarak kod aşağıdaki gibi olmalı.

AD = KARGO &  "_" & Sayfa1.Range("A1") & "_" &  Sayfa1.Range("B1") & "_"& Format(Now, " dd.mm.yyyy_hh/mm")

 

[ADER_34]

Çok teşekkür ederim sayın Taner Saydam kod sorunsuz işlem yapıyor hayırlı geceler..