اضافة سطر جديد بكود فيجوال اكسيل

[georgedada82]

انا الان اريد عمل هيدر او فوتر فيجوال اكسيل ووصلت للكود لكن اريد اضافة اكتر من سطر

الكود اللي وصلتله 

 ActiveSheet.PageSetup.RightFooter = Range("n5").Value

كيف يمكن عمل اكتر من سطر 

بمعني كيف يمكنني اضافة سطر اخر

انا اريد كتابة مثلا 

اسم الموظف المعد ( في اول سطر ) وهذا مسجل في n5

كيف يمكن اضافة سطر جديد من محتوي خلية o5

بحيث يظهر الاثنين تحت بعض 

n5

o5

[أ / محمد صالح]

جرب هذا اكود

 ActiveSheet.PageSetup.RightFooter = Range("n5").Value & chr(10) & Range("o5").Value

حيث chr(10) تعني سطر جديد وهو يساوي الضغط على alt+enter داخل الخلية