بالبحث داخل المنتدى وجدت هذا الكود ارجوا من اساتذتى تفعيله وتوفيقه مع الاربع شيتات الخاصة
'
' الاسماء ماكرو
' الماكرو مسجل 24/01/2012 بواسطة gharip
'
'
Range("B4:H1505").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B4").Select
End Sub