View attachments
2015-12-26 23:54 GMT+07:00 Ashish Koul :
> Sub loop_shts()
> Dim cl As Range
>
> For Each cl In Sheets("Sheet1").Range("a1:a571")
> ThisWorkbook.Sheets.Add
> after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
> ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = cl.V
Sub loop_shts()
Dim cl As Range
For Each cl In Sheets("Sheet1").Range("a1:a571")
ThisWorkbook.Sheets.Add
after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = cl.Value
Next
End Sub
On Sat, Dec 26, 2015 at 10:19 PM, Izhar wrote:
in this workbook I've different company names (look at column A). I need a
macro when I run it the company names to be assigned to the sheets.
Thanks in advance
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this
