Set each cell in a range to a specifc Text Value

[blbat]

I want to set every cell in a Range to specific Text value- I haven't got it yet, but this is the approach I've started with... it doesn't work. What's the correct method?

Private Sub cmdResetVisCheck_Click()

Dim mySheetWS as Worksheet, VisRng as Range
 
Set mySheetWS = Worksheets("Parts Wrkup")
Set VisRng = mySheetWS.Range("V2:V" & mySheetWS.Cells(Rows.Count, "V").End(xlup).Row

'Next is set each cell value in Range to "Visual Check"
'******************************************
For Each Cell in Range(VisRng)
   
Cell.Value = "Visual Check"

Next

End Sub

Thanks.

 

[Fluff]

How about

Private Sub cmdResetVisCheck_Click()

Dim mySheetWS As Worksheet, VisRng As Range
 
Set mySheetWS = Worksheets("Parts Wrkup")
Set VisRng = mySheetWS.Range("V2:V" & mySheetWS.Cells(Rows.Count, "V").End(xlUp).Row[COLOR=#ff0000])[/COLOR]

'Next is set each cell value in Range to "Visual Check"
'******************************************
For Each cell In [COLOR=#ff0000]VisRng[/COLOR]
   
cell.Value = "Visual Check"

Next

End Sub

2 corrections in red.
But if col V is empty this still won't work. let us know what happens

 

[Rick Rothstein]

I am pretty sure this one-liner will do what you are attempting to do with the code you posted...

[table="width: 500"]
[tr]
	[td]Private Sub cmdResetVisCheck_Click()
  Worksheets("Parts Wrkup").Range("V2", Worksheets("Parts Wrkup").Cells(Rows.Count, "V").End(xlUp)) = "Visual Check"
End Sub[/td]
[/tr]
[/table]

 

[blbat]

Thank you Both-

Both examples worked.


Fluff- Thx, your code showed me that at least I was on a correct trajectory to accomplishing my goal!

Rick- Thank you for showing me, AGAIN, that I need to think about a simpler way to do what I'm doing in my code.

regards,

blbat

 

[Fluff]

Glad we could help & thanks for the feedback