Sub MyLastColoredCell()
Dim cell As Range
Dim fndCell As Range
' Loop through all cells in range named "MyRange"
For Each cell In Range("MyRange")
If cell.Interior.Color <> 16777215 Then
Set fndCell = cell
End If
Next cell
' Select cell
If Not fndCell Is Nothing Then
fndCell.Select
Else
MsgBox "No colored cells found in named range"
End If
End Sub