Tweet
Sub sheetnaming()
Sheets("Sheet2").Select
c = Range("I11").Value
For e = 2 To c + 1
Name = Range("G" & e).Value
Sheets("Sheet20").Select
Sheets("Sheet20").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = Name
ActiveSheet.Range("a1") = Name
Sheets("Sheet2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Range("G" & e), Address:="", SubAddress:=Name & "!A1", TextToDisplay:=Name
Range("G2:G40").Select
With Selection.Font
.Name = "B Nazanin"
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Selection.Font.Underline = xlUnderlineStyleNone
With Selection.Font
.Color = -10477568
.TintAndShade = 0
End With
With Selection.Font
.Color = -10477568
.TintAndShade = 0
End With
Next e
End Sub
Sub naming()
Sheets("Sheet1").Select
Dim names(100) As String
For e = 0 To Worksheets.Count - 2
ActiveSheet.Next.Select
names(e) = ActiveSheet.name
Next e
Sheets("Sheet1").Select
For e = 0 To Worksheets.Count - 2
Range("B" & e + 1).Value = names(e)
Next e
End Sub
کامنت