I have a workbook that creates sheets from a list of work order numbers. What I am trying to do is as the code is adding sheets, named as the WO Number, I want it to add a hyperlink in A1 to the main sheet. Here is my code to add sheets from the list of work orders. Hopefully someone can help with this. Thank you.
Sub InsertNamedWorksheets()
Dim MyCell As Range, MyRange As Range
Set MyRange = Sheets("SAP Worklist").Range("E3")
Set MyRange = Range(MyRange, MyRange.End(xlDown))
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each MyCell In MyRange
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = MyCell.Value
Next MyCell
Application.DisplayAlerts = False
Application.ScreenUpdating = False
End Sub
Sub InsertNamedWorksheets()
Dim MyCell As Range, MyRange As Range
Set MyRange = Sheets("SAP Worklist").Range("E3")
Set MyRange = Range(MyRange, MyRange.End(xlDown))
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each MyCell In MyRange
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = MyCell.Value
Next MyCell
Application.DisplayAlerts = False
Application.ScreenUpdating = False
End Sub