Macro to Create Worksheets Based on Cell Values

[Lilbit]

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!!

 

[Adilson Soledade]

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

 

[Lilbit]

It worked beautifully. Thanks!!

 

[Lilbit]

Thank you! Thank you!! Thank you!!!