I am getting this error message in my code but the code ha being working
perfectly well before with no issues or errors. The error occurs on this line:
"Sheets("Site Lists").Range("V" & rwNum).Select"
I tried "Worksheets("Site Lists").Range("V" & rwNum).Select" and got the
same error. Any ideas?

For Each c In Worksheets("Sites Table").Range("B2:B" & totalSiteCount).Cells
If c.Value < "" And IsDate(c.Offset(0, 9).Value) Then
Worksheets("Site Lists").Range("U" & rwNum).Value = siteNum
Worksheets("Site Lists").Range("V" & rwNum).Value = c.Value
Worksheets("Site Lists").Range("W" & rwNum).Value =
Mid(c.Offset(0, 2).Value, 5)
Sheets("Site Lists").Range("V" & rwNum).Select
Selection.Interior.ColorIndex = 6
rwNum = rwNum + 1
siteNum = siteNum + 1
End If
Next c

You have to select a sheet before you select a range on that sheet.

Sheets("Site Lists").select
Sheets("Site Lists").Range("V" & rwNum).Select
Selection.Interior.ColorIndex = 6

But even better is to not select anything at all:
Sheets("Site Lists").Range("V" & rwNum).Interior.ColorIndex = 6

It makes the code easier to read and update and makes the code run a bit faster.

Ayo wrote:

I am getting this error message in my code but the code ha being working
perfectly well before with no issues or errors. The error occurs on this line:
"Sheets("Site Lists").Range("V" & rwNum).Select"
I tried "Worksheets("Site Lists").Range("V" & rwNum).Select" and got the
same error. Any ideas?

For Each c In Worksheets("Sites Table").Range("B2:B" & totalSiteCount).Cells
If c.Value < "" And IsDate(c.Offset(0, 9).Value) Then
Worksheets("Site Lists").Range("U" & rwNum).Value = siteNum
Worksheets("Site Lists").Range("V" & rwNum).Value = c.Value
Worksheets("Site Lists").Range("W" & rwNum).Value =
Mid(c.Offset(0, 2).Value, 5)
Sheets("Site Lists").Range("V" & rwNum).Select
Selection.Interior.ColorIndex = 6
rwNum = rwNum + 1
siteNum = siteNum + 1
End If
Next c

--

Dave Peterson

hi
you can only select on the active sheet. are you sure you are on sheet "site
lists" and that the sheet name exists?

regards
FSt1

"Ayo" wrote:

I am getting this error message in my code but the code ha being working
perfectly well before with no issues or errors. The error occurs on this line:
"Sheets("Site Lists").Range("V" & rwNum).Select"
I tried "Worksheets("Site Lists").Range("V" & rwNum).Select" and got the
same error. Any ideas?

For Each c In Worksheets("Sites Table").Range("B2:B" & totalSiteCount).Cells
If c.Value < "" And IsDate(c.Offset(0, 9).Value) Then
Worksheets("Site Lists").Range("U" & rwNum).Value = siteNum
Worksheets("Site Lists").Range("V" & rwNum).Value = c.Value
Worksheets("Site Lists").Range("W" & rwNum).Value =
Mid(c.Offset(0, 2).Value, 5)
Sheets("Site Lists").Range("V" & rwNum).Select
Selection.Interior.ColorIndex = 6
rwNum = rwNum + 1
siteNum = siteNum + 1
End If
Next c

Thank you Dave. That worked.

"Dave Peterson" wrote:

You have to select a sheet before you select a range on that sheet.

Sheets("Site Lists").select
Sheets("Site Lists").Range("V" & rwNum).Select
Selection.Interior.ColorIndex = 6

But even better is to not select anything at all:
Sheets("Site Lists").Range("V" & rwNum).Interior.ColorIndex = 6

It makes the code easier to read and update and makes the code run a bit faster.

Ayo wrote:

I am getting this error message in my code but the code ha being working
perfectly well before with no issues or errors. The error occurs on this line:
"Sheets("Site Lists").Range("V" & rwNum).Select"
I tried "Worksheets("Site Lists").Range("V" & rwNum).Select" and got the
same error. Any ideas?

For Each c In Worksheets("Sites Table").Range("B2:B" & totalSiteCount).Cells
If c.Value < "" And IsDate(c.Offset(0, 9).Value) Then
Worksheets("Site Lists").Range("U" & rwNum).Value = siteNum
Worksheets("Site Lists").Range("V" & rwNum).Value = c.Value
Worksheets("Site Lists").Range("W" & rwNum).Value =
Mid(c.Offset(0, 2).Value, 5)
Sheets("Site Lists").Range("V" & rwNum).Select
Selection.Interior.ColorIndex = 6
rwNum = rwNum + 1
siteNum = siteNum + 1
End If
Next c

--

Dave Peterson