How to remove cell pattern and keep cell background color

Hello,

when I use in my code:

.EntireRow.Interior.Pattern = xlPatternGray50

it adds pattern and KEEPS BACKGROUND COLOR of modified cells. OK...

But when I use in my code:

Cells.Interior.Pattern = xlPatternNone

It removes the pattern but IT ALSO REMOVES BACKGROUND COLOR. Which is not OK for me.

MANUALLY, via cell properties, IT IS POSSIBLE to remove pattern and keep background color by selecting top-left pattern style.
Is there such solution for VBA?
Thanks for your replies.

Ok, to be more specific: I have following very simple (quickly written) "enhancement" macro to help me with orientation in Excel sheets:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

    Application.ScreenUpdating = False

    Cells.Interior.Pattern = xlPatternNone
    Cells.Interior.PatternColorIndex = xlColorIndexNone

    With Target
        .EntireRow.Interior.Pattern = xlPatternGray50
    .EntireRow.Interior.PatternColorIndex = 35
        .EntireColumn.Interior.Pattern = xlPatternGray50
        .EntireColumn.Interior.PatternColorIndex = 35
    End With

    Application.ScreenUpdating = True

End Sub

which works fine until I start to use workbooks with colored cells (which is not so often in case of "data-output workbooks" compared to "office workbooks", but...). If you test it, it will make my needs clear.

OK, I don't want you to do anything. I just would like you or anyone to answer my unsolved question:

Is it possible to remove cell pattern by a simple instruction and to keep (formerly set) cell background color?

Regards.

I know, therefore easy quick solution with borders (for workbooks, where borders are not used):

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    
    Application.ScreenUpdating = False

    Cells.Borders.LineStyle = xlLineStyleNone

    If Target.Cells.Count = 1 Then
    
        With Rows(Target.Row)
            .Borders(xlEdgeTop).LineStyle = xlContinuous
            .Borders(xlEdgeBottom).LineStyle = xlContinuous
        End With
    
        With Columns(Target.Column)
            .Borders(xlEdgeLeft).LineStyle = xlContinuous
            .Borders(xlEdgeRight).LineStyle = xlContinuous
        End With
        
    End If

    Application.ScreenUpdating = True

End Sub

Bye and thanks.

Also interesting. Thanks. But I have to move on in my work... my solution is for me enough (followed by easy code to remove all borders from workbook on closing...)

Regards.

(It is being used only in workbooks without any formatting (prg output data, originally as CSV) and cells in these wbks are already conditionally formated (highlighting of deviations for further presentation as pre-analysis). And browsing through such excels at 50% zoom on 24" high-res LCD is sometimes little bit difficult, when I try to find and visually compare corresponding data on the same row or in the same column - there are approx.70 columns and xx000 rows. Therefore I added 2 lines to the code above making the borders red...).

OK, the thread solved for me.
Best regards.