VBA run-time error 1004

[Gazman101]

I am hoping someone here can help. I have written a piece of code in a VBA Module but when I run it, I get a the following error

Run-time error '1004':
Method 'Range' of object '_Global' failed

The intention of the code is to look at a series of results and highlight the numbers which are higher than the three columns which contain the criteria

Sub SGVs()
' SGV HIGHLIGHT Macro
Dim i As Integer
Dim k As Integer
        For i = 9 To 48
        Range("H" & i, "GW" & i).Select
        If Range("E" & i) >= Range("D" & k) And Range("F" & i) >= Range("E" & i) Then
            Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
                Formula1:=Range("D" & i), Formula2:=Range("E" & i)
            Selection.FormatConditions(1).Interior.ColorIndex = 35
            Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
                Formula1:=Range("E" & i), Formula2:=Range("F" & i)
            Selection.FormatConditions(2).Interior.ColorIndex = 43
            Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
                Formula1:=Range("F" & i)
            Selection.FormatConditions(3).Interior.ColorIndex = 50
        ElseIf Range("D" & i) >= Range("E" & i) And Range("F" & i) >= Range("D" & i) Then
            Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
                Formula1:=Range("E" & i), Formula2:=Range("D" & i)
            Selection.FormatConditions(1).Interior.ColorIndex = 43
            Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
                Formula1:=Range("D" & i), Formula2:=Range("F" & i)
            Selection.FormatConditions(2).Interior.ColorIndex = 35
            Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
                Formula1:=Range("F" & i)
            Selection.FormatConditions(3).Interior.ColorIndex = 50
        ElseIf Range("F" & i) >= Range("D" & i) And Range("E" & i) >= Range("F" & i) Then
            Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
                Formula1:=Range("D" & i), Formula2:=Range("F" & i)
            Selection.FormatConditions(1).Interior.ColorIndex = 35
            Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
                Formula1:=Range("F" & i), Formula2:=Range("E" & i)
            Selection.FormatConditions(2).Interior.ColorIndex = 50
            Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
                Formula1:=Range("E" & i)
            Selection.FormatConditions(3).Interior.ColorIndex = 43
        ElseIf Range("F" & i) >= Range("E" & i) And Range("D" & i) >= Range("F" & i) Then
            Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
                Formula1:=Range("E" & i), Formula2:=Range("F" & i)
            Selection.FormatConditions(1).Interior.ColorIndex = 43
            Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
                Formula1:=Range("F" & i), Formula2:=Range("D" & i)
            Selection.FormatConditions(2).Interior.ColorIndex = 50
            Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
                Formula1:=Range("D" & i)
            Selection.FormatConditions(3).Interior.ColorIndex = 35
        End If
    Next i
End Sub

The code seems to fall over at the first "If" statement. Any advice greatly received.

 

[Fluff]

You don't have a value of k, so its trying to look at col D row 0

 

[HotRhodium]

If I am reading this correctly k should be = 0 at this line of code causing an error.


If Range("E" & i) >= Range("D" & k) And Range("F" & i) >= Range("E" & i) Then

 

[Norie]

The value of k here will be 0, there is no row 0.

        If Range("E" & i) >= Range("D" & k) And Range("F" & i) >= Range("E" & i) Then

What should the value of k be?

 

[Gazman101]

Thank you all. Couldn't see the wood for the trees. Its a typo in the line the "k" should be an "i". I've been staring at this for days. Amazing what a second pair of eyes can see. FYI the "k" refers to a second bit of code, that i didn't post, which is basically a duplicate of the above but skips a few rows.

 

[Fluff]

Glad we could help & thanks for the feedback