Inset different row content to Multiple sheets based on a list.

[venumkd]

Sirs

First of all thanks a lot to the help and supports so far given.

Now I need a VBA / ANY METHOD to insert row content to multiple worksheets as detailed below

The sheet names shall be mentioned in column A in the first worksheet starts from cell A1 onwards. These sheets are to be identified or selected for pasting / inserting the content.

The content to be pasted is like this

Work ID CP1429(Sheet 01)

Work ID CP1429(Sheet 02)

Work ID CP1429(Sheet 03)

Work ID CP1429(Sheet 04)

Work ID CP1429(Sheet 05)

And so on up to Work ID CP1429(Sheet 01500) to be inserted in 1500 sheets named Sheet 01 to Sheet 01500

The contents are to be pasted / inserted in Row 2 of these sheets mentioned in Column A.

The above contents to be pasted / inserted shall be mentioned in Column B starts from cell B1 onwards in the same worksheet.

Thanks & Regards

VENU

 

[JLGWhiz]

My interpretation of the objective is to copy the contents of column B in Sheet 1 of a workbook to column A of sheets in the same workbook as listed in Column A of Sheet.

Sub t()
Dim c As Range
For Each c In Sheets(1).Range("A1", Cells(Rows.Count, 1).End(xlUp))
If c <> "" Then
Sheets(1).Range("B1", Cells(Rows.Count, 2).End(xlUp)).Copy Sheets(c.Value).Range("A1")
End If
Next
End Sub

If my interpretation is incorrect, please clarify.

 

[venumkd]

Sirs
Not working.
Showing Error 400

 

[JLGWhiz]

That is the best I can do with what is in Post #1.
Regards, JLG