الماكرو بعد التعديل ليصدر اول تسعة سجلات للتجربة تم ايضا محاولة تثبيت ترميز اللغة العربية و اختيار الثلاثة حقول التي تريد الاسم و هاتف المنزل و المحمول Sub Create_VCF() Dim iRow, FileNum For iRow = 2 To 10 FileNum = FreeFile CNAMe = ActiveSheet.Cells(iRow, 1) MTel = ActiveSheet.Cells(iRow, 2) HTel = ActiveSheet.Cells(iRow, 3) OutFilePath = ThisWorkbook.Path & "\" & CNAMe & ".VCF" Open OutFilePath For Output As FileNum