تعديل الماكرو

[محمد عدنان]

السلام  عليكم 

الماكرو التالي  يقوم بتغيير اسم الشيت بناء على اسم الخلية  لجميع اوراق العمل 

المطلوب  عتد تغيير الاسم   استثتاء بعص اوراق العمل  

Sub rename()
Dim i
For i = 1 To Sheets.Count
If Worksheets(i).Range("n14").Value <> "" Then
Sheets(i).Name = Worksheets(i).Range("n14").Value
End If
Next i
End Sub

 

[lionheart]

Sub Rename_Worksheets()
    Dim i As Long
    For i = 1 To Sheets.Count
        If Worksheets(i).Name <> "Sheet2" And Worksheets(i).Name <> "Sheet4" Then
            If Worksheets(i).Range("N14").Value <> "" Then
                Sheets(i).Name = Worksheets(i).Range("n14").Value
            End If
        End If
    Next i
End Sub

 

[محمد عدنان]

السلام عليكم 

شكرا @lionheart  و جزاك الله كل خير 

في ميزان حسناتك