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
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