Hello:

If all you are trying to do is create a range dynamically, you could use
this simple method:

Public Sub Tester()

Dim errorWS_lastRow As Integer
Dim strRange As String

errorWS_lastRow = 20

strRange = "A5:A" & errorWS_lastRow

Range(strRange).Name = "sitelist"

End Sub

--
Rich Locus
Logicwurks, LLC


"Ayo" wrote:

How can I fix this code line below. I am getting a "Run-time error '1004':"
"The formula you typed contains an error."
I tried putting quotes at the end and that didn't solve the problem.

ActiveWorkbook.Names.Add Name:="siteList",
RefersToR1C1:="=Error_MarketList!$A$5:$A$" & errorWS_lastRow