To run this code, you must frist select the sheets taht contais the values
used to name the new worksheets

Sub Create_Worksheets()
Dim i As Integer
Dim WSheet As Worksheet

Set WSheet = ActiveSheet
For i = 75 To 125
Worksheets.Add After:=Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = WSheet.Cells(i, 1)
Next i
WSheet.Select
End Sub


--
Adilson Soledade


"Lilbit" wrote:

I have cell values created through a filter. The cells are A75-A125. I
need a macro that creates a worksheet for each value. Does such a macro
exist and if the answer is yes, how do I get my hands on it? Thanks!!

--
Message posted using http://www.talkaboutsoftware.com/gro...eet.functions/
More information at http://www.talkaboutsoftware.com/faq.html