Select Last Colored Cell in a Named Range

[MyersEPS]

Hello,

I am tiring to select the last colored cell in a named range based on a active cell background color. Can someone please help???

Thanks

 

[Joe4]

Welcome to the Board!

How is the cell being colored? Manually, via Conditional Formatting, or by VBA?
What are the typical dimensions of this named range? Is it always multiple rows AND multiple columns, or is it just multiple cells going down a single column, or multiple cells going across a single row?

 

[MyersEPS]

The cells are being colored manually. It is just multiple cells going down a single column.

 

[Joe4]

Try this:

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

Change the range name to suit.

 

[MyersEPS]

PERFECT, thanks a million Moderator.

 

[Joe4]

You are welcome!
Glad it worked out for you.