"Select method of Range class failed" Error

  • Thread starter Thread starter Ayo
  • Start date Start date
A

Ayo

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.
 
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
 
Thank you Dave. That worked.

Dave Peterson said:
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.
Click to expand...
 
Back
Top