ممتازة أخى إبراهيم لكن هل ممكن الدمج بين الكود الذى تفضلت به مع هذا الكود بحيث يتم إنشاء الأزرار تلقائياً ويتم إعطائها أسماء الشيتات دون تدخل من المستخدم
هذا الكود كان من إعداد أخى محمد هشام
Sub shws()
For i = 2 To Sheets.Count
lw = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row + 1
If Sheets(i).Name <> MM Then
Sheet1.Cells(lw, 1) = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Sheet1.Cells(lw, 1), Address:="", SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
End If
Next
End Sub