Sub MM1()
Dim lr As Long, r As Long, str As String
lr = Cells(Rows.Count, "K").End(xlUp).Row
For r = 6 To lr
str = Cells(r, "k").Value
Sheets("Visual").Range(str).Interior.Color = vbRed
Next r
End Sub
Sub MM1()
Dim lr As Long, r As Long, str As String
lr = Cells(Rows.Count, "K").End(xlUp).Row
On Error GoTo err:
For r = 6 To lr
str = Cells(r, "k").Value
Sheets("Visual").Range(str).Interior.Color = vbRed
Next r
err:
MsgBox "Incorrect address @ " & Cells(r, "k").Address & " !!"
End Sub