create dynamic vba script for new sheets for each row from main sheet with name

[ganu learner]

res sir I record a micro for 3 new sheets create from main sheet is below.

now I want new sheets create dynamically acording to main sheet. in which row 1:1 is header so in every sheet first row is common after that new sheet for every row according to main sheet and also with name according column A .

recorded micro is below here thanks

Sub Macro1()
Range("A1").Select
Sheets.Add After:=ActiveSheet
Sheets("NiftyBank MW").Select
Rows("1:1").Select
Selection.Copy
Sheets("Sheet1").Select
Rows("1:1").Select
ActiveSheet.Paste
Sheets("NiftyBank MW").Select
Sheets("NiftyBank MW").Name = "NiftyBank MW"
Rows("2:2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "Sheet1"
Rows("2:2").Select
ActiveSheet.Paste
Sheets.Add After:=ActiveSheet
Sheets("NiftyBank MW").Select
Sheets("NiftyBank MW").Name = "NiftyBank MW"
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Rows("1:1").Select
ActiveSheet.Paste
ActiveSheet.Paste
Sheets("NiftyBank MW").Select
Rows("3:3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Rows("2:2").Select
ActiveSheet.Paste
Sheets.Add After:=ActiveSheet
Sheets("Sheet3").Name = "Sheet3"
Sheets("NiftyBank MW").Select
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Rows("1:1").Select
ActiveSheet.Paste
Sheets("NiftyBank MW").Select
Rows("4:4").Select
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Rows("2:2").Select
ActiveSheet.Paste
Sheets("NiftyBank MW").Select
Range("A1").Select
End Sub

 

[Fluff]

When should it run?

 

[ganu learner]

When should it run?
[/QUOTE
Run only once at the opening of my main file and if new sheet is created then script skip at that time. my file is dynamically updated every one or two second .

 

[Fluff]

What exactly do you mean by "if new sheet is created then script skip at that time "

 

[ganu learner]

What exactly do you mean by "if new sheet is created then script skip at that time "

Sir means that
Suppose my main sheet have 10 rows
now I paste VBA script in it .
After pasting VBA script my main sheet created new sheets according to my main sheet .
After created new sheets my task is complete .

 

[Fluff]

In that case just put the code into a Workbook_Open event in the ThisWorkbook module