copying data to muliple worksheets

[Guest]

I wish to automate the following routine:

For a list of named worksheets, say in rows a1 to a25 (the list matches the
names of the worksheets within the workbook), I want to select each item in
the list, calc, and then copy a range (d1:F50) as values to the same cells in
the associated worksheet.

Thanks!

Kevin

 

[Ron de Bruin]

You can test this
Replace
MsgBox SNameRng.Value

With the code you want

For example
ThisWorkbook.Worksheets(SNameRng.Value).Range("D1:F50").Copy

Sub test()
Dim SNameRng As Range
For Each SNameRng In ThisWorkbook.Sheets("Sheet1").Columns("A").SpecialCells(xlCellTypeConstants)
If SheetExists(SNameRng.Value, ThisWorkbook) = True Then

MsgBox SNameRng.value

End If
Next SNameRng
End Sub

Function SheetExists(SName As String, _
Optional ByVal WB As Workbook) As Boolean
'Chip Pearson
On Error Resume Next
If WB Is Nothing Then Set WB = ThisWorkbook
SheetExists = CBool(Len(WB.Sheets(SName).Name))
End Function