Code not working

[Mel Smith]

I'm using the following code to highlight the maximum value in a range but it keeps failing at the "maxVal = cell.Value" line:

Sub Strike_Rate()
    Dim rng As Range
    Dim cell As Range
    Dim maxVal As Double
  
     Set rng = Range("DI4:DI33") ' Change this to your desired range
  
       maxVal = rng.Cells(1).Value
  
    For Each cell In rng
        If cell.Value > maxVal Then
            maxVal = cell.Value
        End If
    Next cell
  
     For Each cell In rng
        If cell.Value = maxVal Then
            cell.Interior.Color = RGB(255, 255, 0) ' Highlight in red; you can change the color as desired
        End If
    Next cell
End Sub

The maximum value in this case is 120.90.

Can someone point me in the right direction, please?

Mel

 

[Muhammad_Usman]

I'm using the following code to highlight the maximum value in a range but it keeps failing at the "maxVal = cell.Value" line:

Sub Strike_Rate()
    Dim rng As Range
    Dim cell As Range
    Dim maxVal As Double
 
     Set rng = Range("DI4:DI33") ' Change this to your desired range
 
       maxVal = rng.Cells(1).Value
 
    For Each cell In rng
        If cell.Value > maxVal Then
            maxVal = cell.Value
        End If
    Next cell
 
     For Each cell In rng
        If cell.Value = maxVal Then
            cell.Interior.Color = RGB(255, 255, 0) ' Highlight in red; you can change the color as desired
        End If
    Next cell
End Sub

The maximum value in this case is 120.90.

Can someone point me in the right direction, please?

Mel

This code working fine on my side

 

[Alex Blakenburg]

See if this change fixes it:

    For Each cell In rng
        If cell.Value > maxVal And IsNumeric(cell.Value) Then
            maxVal = cell.Value
        End If
    Next cell

 

[Mel Smith]

Alex, thank you so much.

Mel

 

[Alex Blakenburg]

You're welcome. Glad we could help.