Option Explicit

Private Sub CommandButton1_Click()

Dim maximum As Double, rng As Range, cell As Range

Cells.Interior.ColorIndex = 0

Set rng = Range("F1").CurrentRegion
maximum = WorksheetFunction.Max(rng)
    
For Each cell In rng
    If cell.Value = maximum Then
        cell.Interior.ColorIndex = 22
        Range("G1").Value = cell.Address
    End If
Next cell
    
End Sub