VBA: Multiple Row Delete

Hi,

I have the following code, and I get it to delete the row where aCell finds a Y, but I also want to delete the NEXT row as well. Can anyone tell me how to alter my code to do this please?

Sub Muppet()

Dim aCell

For Each aCell In Range("J2", "J58")

If aCell = "Y" Then
aCell.EntireRow.Delete

'I want something here to help me delete the row aCell +1

End If
Next

End Sub

Thanks!