Excel se bloquea al ejecutar este simple programa
Soy totalmente newbie con VBA. He escrito este programa, y cada vez que lo ejecuto Excel se bloquea. Lo he analizado por todos lados y no sé qué está mal. Agradecería enormemente cualquier ayuda que podáis darme.
Básicamente quiero hacer lo siguiente. Quiero que el programa recorra una columna comprobando el valor de cada celda. Si el valor de la celda coincide con uno determinado, quiero que coja el valor de otra celda de la misma fila, y lo almacene en un sumatorio.
Una vez que termina de recorrer la columna, el programa devuelve el valor del sumatorio.
Aquí está el código:
Sub Mondays()
Sheets("Hoja1").Select
Dim m As Integer
Dim fila As Byte
fila = 1
m = 0
Do
If (Cells(fila, 2).Value = "Monday") Then
m = m + Cells(fila, 8).Value
fila = fila + 1
End If
Loop Until Cells(fila, 1).Value = Range("A24")
Range("J3").Value = m
End Sub