Try something like this: Sub Macro1() Dim sheetnames As Variant sheetnames = Range("C1:C10").Value
For i = 1 To UBound(sheetnames) If sheetnames(i, 1) <> "" Then Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = sheetnames(i, 1) End If Next i End Sub On Mar 19, 9:41 am, "C.G.Kumar" <kumar.bemlmum...@gmail.com> wrote: > Could anyone suggest the manner i could to the following ; > 1. Add an event in excel macro to insert particular Sheet of an Workbook > depending upon count in a column & > 2. Name of the new worksheet will be content of column. > > Example: In Workbook named "DATA", Sheet 1,C1 to C3 contain A,B & C > respectively. So , i want to have macro to > > 1. Insert 3 times "DATA"Sheet in the workbook (bcoz Count of C1 to C3 is 3) > 2. New name of the inserted sheet will be A,B and C. > > Regards, > > Kumar -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> HELP US GROW !! We reach over 6,800 subscribers worldwide and receive many nice notes about the learning and support from the group.Let friends and co-workers know they can subscribe to group at http://groups.google.com/group/excel-macros/subscribe To unsubscribe from this group, send email to excel-macros+unsubscribegooglegroups.com or reply to this email with the words "REMOVE ME" as the subject.