السلام عليكم
هل يمكن لهذا الكود ان يحفظ الى (pdf) بدلا من اكسل
Sub Macro1()
'
' Macro1 Macro
'
Dim sms As String
pth = ActiveWorkbook.Path
For i = 1 To Sheets.Count
Sheets(i).Select
Sheets(i).Copy
sms = sms & Chr(10) & [B4]
ActiveWorkbook.SaveAs Filename:=pth & "\" & [B4] & ".xls", FileFormat:=xlExcel8
Activewindow.Close
Next i
Sheets(1).Select
MsgBox ("تم حفظ الملفات التالية:" & sms)
End Sub