Dear Friends,
I have an INDI sheet which includes details of each member I want to make a different workbooks for each of them with the details of each member First 3 columns are common for each member and remaining columns from E to Q changes according to member name in cell E13,R13 respectivly There are more than 1000 emp name in my sheet . i recorded a code but it doesn’t Sub Macro1() ' ' Macro1 Macro ' ' Keyboard Shortcut: Ctrl+a ' Range("A1:G12").Select Selection.Copy Workbooks.Add ActiveSheet.Paste ThisFile = Range("D1").Value ActiveWorkbook.SaveAs Filename:=ThisFile Windows("adhoc Project1.xls").Activate ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlNormal Columns("D:G").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("A1:G12").Select Selection.Copy Workbooks.Add Selection.Font.Bold = True Windows("adhoc Project1.xls").Activate ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlNormal Selection.Copy Windows("Book2").Activate ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlNormal ActiveSheet.Paste ThisFile = Range("D1").Value ActiveWorkbook.SaveAs Filename:=ThisFile Windows("adhoc Project1.xls").Activate ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlNormal Columns("D:G").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("A1:G12").Select Selection.Copy Windows("Book2").Activate ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlNormal Windows("adhoc Project1.xls").Activate ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlNormal Workbooks.Add ActiveSheet.Paste Windows("adhoc Project1.xls").Activate ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlNormal Range("C19").Select End Sub Plz suggest Thanks and Regards *Shashank S Bhosle* -- FORUM RULES (925+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (925+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com