Excel VBA Макросы. Путь сохраненного файла.

[Посетитель]

Как в данный макрос дописать путь для сохранения файла?

Application.DisplayAlerts = False
If ActiveWorkbook.FileFormat <> 51 Then
sfn = sfn & "Телефонный справочник " & Format(Date, "DD.MM.YYYY") & ".xlsx"
ActiveWorkbook.SaveAs sp & sfn, 51
End If

У меня задача пересохранять периодически файл xlsm в xlsx с датой c исходным именем в ту же папку, где лежит исходник xlsm.

[Администратор]

Application.DisplayAlerts = False
If ActiveWorkbook.FileFormat <> 51 Then
sfn = sfn & "Телефонный справочник " & Format(Date, "DD.MM.YYYY") & ".xlsx"
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & sp & sfn, 51
End If

[Посетитель]

Спасибо большое!