What part(s) don't you understand?

RBS


"Lil Pun" wrote in
message ...

Can somebody explain what this section of code does? It is located in
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 Sub


--
Lil Pun
------------------------------------------------------------------------
Lil Pun's Profile:
http://www.excelforum.com/member.php...o&userid=33840
View this thread: http://www.excelforum.com/showthread...hreadid=536944