Hello
below is my code, it works only 1/3 of the upper screen as expected, error msg comes out anywhere else. please help to identify the root cause. Thanks so much.
Sub FindMax()
'
Dim zoomCell As Range, zoomRng As Range, maxCell As Variant
ActiveSheet.Cells.Interior.Color =...