Hi all
I have the following code, and I'm trying to work out why it isn't exiting the loop. I'm a bit of an amateur so please respond as if talking to a small child!
I have the following code, and I'm trying to work out why it isn't exiting the loop. I'm a bit of an amateur so please respond as if talking to a small child!
VBA Code:
Sub DetentionListAddName()
Sheets("Submition Forms").Select
Range("C4").Select
Do Until IsEmpty(ActiveCell)
Select Case ActiveCell
Case "N"
ActiveCell.Offset(0, -2).Copy
Sheets("Detentions List").Select
Range("A1").Select
Cells(Columns.Count, 1).End(xlUp).Offset(0, 1).Select
ActiveCell.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial
Sheets("Submition Forms").Select
ActiveCell.Offset(1, 0).Select
Case "Y"
ActiveCell.Offset(1, 0).Select
End Select
Loop
End Sub