Move rows from one sheet in a workbook to another workbook

[Shathrugan]

Hi all,

I have a workbook1 with a single sheet containing multiple rows of data.
I need to create another workbook2 with each sheet consisting one row from workbook1.
To be more clear one row from workbook1 should be contained In one single sheet in workbook2.
If suppose workbook1 has 20 rows of data ,then workbook 2 should have 20 sheets with each row data respectively.Please help in achieving this using macro

 

[mumps]

This macro assumes the sheet in workbook1 containing your data is named "Sheet1" and the data is in column A starting at row 1. The macro can be modified to suit your needs.

Sub CreateSheet()
    Application.ScreenUpdating = False
    Dim srcWS As Worksheet
    Set srcWS = ThisWorkbook.Sheets("Sheet1")
    Dim LastRow As Long, rng As Range
    LastRow = srcWS.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Workbooks.Add
    For Each rng In srcWS.Range("A1:A" & LastRow)
        Worksheets.Add
        ActiveSheet.Move After:=Worksheets(Worksheets.Count)
        srcWS.Rows(rng.Row).EntireRow.Copy Cells(1, 1)
    Next rng
    Application.ScreenUpdating = True
 End Sub