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

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



--
Regards Ron de Bruin
http://www.rondebruin.nl



"Hogometer" <(E-Mail Removed)> wrote in message news:392FF30D-C93E-4C32-997E-(E-Mail Removed)...
>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