خطا غى عمل كود

اخى ابو حنين
اولا مشكورا على الرد والاهتمام
بارك الله فيك
--------------------------------
ثانيا الفكره دى انا عارفها
-------------------------------
كما يمكن استخدام

Sub HMA()
On Error Resume Next
For H = 1 To 9
Cells(3, H).Offset(0, 9) = H

Next H
End Sub


ولكنى كنت اريد ان اعرف هل يمك ...
لتكملة الموضوع برجاء الضغط على الرابط التالى خطا غى عمل كود