Can somebody explain what this section of code does? It is located i
Sheet1 of the VBA Explorer in Excel.

Here it is:


On Error GoTo errorhandler
If avoidloop And Trim(TARGET) < "" Then
If TARGET = "1" Then
Range("C2").Select
Application.SendKeys "{F2}"
Else
Select Case (ActiveCell.Column)
Case 1
avoidloop = False
If ActiveSheet.Rows(2).Columns(1).Value
TARGET Then
ActiveSheet.Rows(ActiveCell.Row - 1).Columns(1).Value
TARGET
ActiveSheet.Rows(ActiveCell.Row - 1).Columns(2).Value
""
avoidloop = True
Else
ActiveSheet.Rows(ActiveCell.Row - 1).Columns(2).Value
TARGET
ActiveSheet.Rows(ActiveCell.Row - 1).Columns(1).Value
""
avoidloop = True
End If
Case 2
Case 3
If TARGET < "" Then SAVE_DATA (TARGET)
Case Else
End Select
End If
End If
errorhandler:
End Su

--
Lil Pu
-----------------------------------------------------------------------
Lil Pun's Profile: http://www.excelforum.com/member.php...fo&userid=3384
View this thread: http://www.excelforum.com/showthread.php?threadid=53694