Excel VBA to select the cell for each max number in the selected range

Option Explicit


Private Sub maxVal()
    Dim i As Long, ii As Long, r As Range, s As String
    
    With Sheets("hghlgtdupl")
        If MsgBox("Do you want to CLEAR THE FORMAT...?", vbYesNo) = vbYes Then
            On Error Resume Next
            Set r = Application.InputBox("Select RANGE to CLEAR FORMATS.", "Clear Range", , , , , , 8)
            On Error GoTo 0
            If Not r Is Nothing Then r.ClearFormats
        End If
        Err.Clear: On Error GoTo 0
        If MsgBox("Do you want to CONTINUE...?", vbYesNo) = vbYes Then
            On Error Resume Next
            Set r = Application.InputBox("Select DATA RANGE.", "Data Range", , , , , , 8)
            On Error GoTo 0
            If Not r Is Nothing Then
                With r
                    For i = 1 To .Columns.Count
                        ii = Application.Match(Application.Max(.Columns(i)), .Columns(i), 0)
                        If s = "" Then
                            s = .Cells(ii, i).Address
                        Else
                            s = s & ", " & .Cells(ii, i).Address
                        End If
                    Next
                End With
                Set r = Range(s)
                r.Interior.Color = vbRed    '// delete this if you just want to select cells, or change
                r.Select                    '// delete this if you do not actually need to select the cells
            End If
        End If
    End With
    
End Sub