اعادة ترتيب الأوراق

[M.NHAKAMI]

احبابنا بالمنتدى  ماهي الطريقة لنقل ورقة thiswoekbook لتكون اخر ورقة عندما افتح الملف تظهر اولا ورقة من ملف العمل ثم تختفي ويظهر الفورم انا اريد ظهور الفورم مباشره  

اتوقع السبب ان ورقة thiswoekbook ليست في اخر الاوراق كما هي العادة 

[r3dx]

Sub MoveSheetToLast()
    Dim ws As Worksheet
    Dim lastSheetIndex As Integer
    
    ' تحديد الورقة التي تريد نقلها
    Set ws = ThisWorkbook.Sheets("اسم الورقة الخاصة بك")
    
    ' تحديد رقم آخر ورقة
    lastSheetIndex = ThisWorkbook.Sheets.Count
    
    ' نقل الورقة إلى نهاية الملف
    ws.Move After:=ThisWorkbook.Sheets(lastSheetIndex)
End Sub