Object required error in for each command

[nsdcoelho]

Hello, I am getting the "object required" error when I try to perform a for each command. Basically, I want, for each string text in a defined array, create a new spreadsheet. However, I got stuck at the for each command. Any help would be appreciated. The code is as follows: Dim rng As Range
Dim cntpies As Range
Dim cntpy As Variant
Dim tabela As String

Worksheets("Lista").Range(Selection, Selection.End(xlDown)).Name = "cntpies"

For Each cntpy In cntpies

tabela = "T." & cntpy
Set WSNew = Worksheets.Add(After:=Sheets(ActiveSheet.Index)).Name = tabela

Next

 

[Andrew Poulsom]

Welcome to MrExcel.

You haven't assigned anything to cntpies.

 

[Jonmo1]

I think this line

Worksheets("Lista").Range(Selection, Selection.End(xlDown)).Name = "cntpies"

should be

Set cntpies = Range(Selection, Selection.End(xlDown))

 

[nsdcoelho]

It solved my problem! I was thinking that when defining the name for the range, I was automatically assigning to it the values that are in the range. Thank you all for your help!