How to check worksheet contents of Arrow? if yes, the start to clear
Arrows (Auditing Arrows) ?

loSheet.ClearArrows '~~ <-- If worksheet without Arrows, will case
runtime error 1004.

Using XL2000 & 2002, if I have no arrows showing, calling ClearArrows causes
no error.
Maybe the problem is with the WS reference.

NickHK

"moonhk" wrote in message
ps.com...
How to check worksheet contents of Arrow? if yes, the start to clear
Arrows (Auditing Arrows) ?

loSheet.ClearArrows '~~ <-- If worksheet without Arrows, will case
runtime error 1004.

Hi NickHK
I am using Excel 2000 SP3.
The WS reference is correct. the part of coding as below.
Just add On Error Resume Next and On Error GoTo 0

On Error Resume Next
loSheet.ClearArrows
On Error GoTo 0
For Each cell In loSheet.Range(site.s1dnAddr & "3:" & site.s1dnAddr
& SubTotal.getMember_cnt + 3)
If cell.Value < TmpStr Then
Debug.Print "Build_Summary " & cell.Value & " TmpStr=" & TmpStr
& " R1=" & str(R1) & " R2=" & str(R2)
'~~MsgBox cell.Value + " " + TmpStr & "R1=" & Str(R1) & " R2="
& R2
'~~ Build Sum formula
If (R2 R1) Or (R1 - 1 = R2) Or (R1 = R2) Then

If R1 - 1 = R2 Then
R2 = R1
End If

NickHK wrote:
Using XL2000 & 2002, if I have no arrows showing, calling ClearArrows causes
no error.
Maybe the problem is with the WS reference.

NickHK

"moonhk" wrote in message
ps.com...
How to check worksheet contents of Arrow? if yes, the start to clear
Arrows (Auditing Arrows) ?

loSheet.ClearArrows '~~ <-- If worksheet without Arrows, will case
runtime error 1004.

Does this error for you, it doesn't for me

Sub test()
Dim ws As Worksheet
Set ws = ActiveWorkbook.Worksheets.Add
ws.ClearArrows

End Sub

Regards,
Peter T

"moonhk" wrote in message
oups.com...
Hi NickHK
I am using Excel 2000 SP3.
The WS reference is correct. the part of coding as below.
Just add On Error Resume Next and On Error GoTo 0

On Error Resume Next
loSheet.ClearArrows
On Error GoTo 0
For Each cell In loSheet.Range(site.s1dnAddr & "3:" & site.s1dnAddr
& SubTotal.getMember_cnt + 3)
If cell.Value < TmpStr Then
Debug.Print "Build_Summary " & cell.Value & " TmpStr=" & TmpStr
& " R1=" & str(R1) & " R2=" & str(R2)
'~~MsgBox cell.Value + " " + TmpStr & "R1=" & Str(R1) & " R2="
& R2
'~~ Build Sum formula
If (R2 R1) Or (R1 - 1 = R2) Or (R1 = R2) Then

If R1 - 1 = R2 Then
R2 = R1
End If

NickHK wrote:
Using XL2000 & 2002, if I have no arrows showing, calling ClearArrows
causes
no error.
Maybe the problem is with the WS reference.

NickHK

"moonhk" wrote in message
ps.com...
How to check worksheet contents of Arrow? if yes, the start to clear
Arrows (Auditing Arrows) ?

loSheet.ClearArrows '~~ <-- If worksheet without Arrows, will case
runtime error 1004.

Peter,
I can't get .ClearArrows to error at all.
That's why I was surprised with the OP's problem.

NickHK

"Peter T" <peter_t@discussions wrote in message
...
Does this error for you, it doesn't for me

Sub test()
Dim ws As Worksheet
Set ws = ActiveWorkbook.Worksheets.Add
ws.ClearArrows

End Sub

Regards,
Peter T

"moonhk" wrote in message
oups.com...
Hi NickHK
I am using Excel 2000 SP3.
The WS reference is correct. the part of coding as below.
Just add On Error Resume Next and On Error GoTo 0

On Error Resume Next
loSheet.ClearArrows
On Error GoTo 0
For Each cell In loSheet.Range(site.s1dnAddr & "3:" & site.s1dnAddr
& SubTotal.getMember_cnt + 3)
If cell.Value < TmpStr Then
Debug.Print "Build_Summary " & cell.Value & " TmpStr=" & TmpStr
& " R1=" & str(R1) & " R2=" & str(R2)
'~~MsgBox cell.Value + " " + TmpStr & "R1=" & Str(R1) & " R2="
& R2
'~~ Build Sum formula
If (R2 R1) Or (R1 - 1 = R2) Or (R1 = R2) Then

If R1 - 1 = R2 Then
R2 = R1
End If

NickHK wrote:
Using XL2000 & 2002, if I have no arrows showing, calling ClearArrows
causes
no error.
Maybe the problem is with the WS reference.

NickHK

"moonhk" wrote in message
ps.com...
How to check worksheet contents of Arrow? if yes, the start to clear
Arrows (Auditing Arrows) ?

loSheet.ClearArrows '~~ <-- If worksheet without Arrows, will
case
runtime error 1004.

Hi Both
Today, rerun the coding. no error found.

NickHK wrote:
Peter,
I can't get .ClearArrows to error at all.
That's why I was surprised with the OP's problem.

NickHK

"Peter T" <peter_t@discussions wrote in message
...
Does this error for you, it doesn't for me

Sub test()
Dim ws As Worksheet
Set ws = ActiveWorkbook.Worksheets.Add
ws.ClearArrows

End Sub

Regards,
Peter T

"moonhk" wrote in message
oups.com...
Hi NickHK
I am using Excel 2000 SP3.
The WS reference is correct. the part of coding as below.
Just add On Error Resume Next and On Error GoTo 0

On Error Resume Next
loSheet.ClearArrows
On Error GoTo 0
For Each cell In loSheet.Range(site.s1dnAddr & "3:" & site.s1dnAddr
& SubTotal.getMember_cnt + 3)
If cell.Value < TmpStr Then
Debug.Print "Build_Summary " & cell.Value & " TmpStr=" & TmpStr
& " R1=" & str(R1) & " R2=" & str(R2)
'~~MsgBox cell.Value + " " + TmpStr & "R1=" & Str(R1) & " R2="
& R2
'~~ Build Sum formula
If (R2 R1) Or (R1 - 1 = R2) Or (R1 = R2) Then

If R1 - 1 = R2 Then
R2 = R1
End If

NickHK wrote:
Using XL2000 & 2002, if I have no arrows showing, calling ClearArrows
causes
no error.
Maybe the problem is with the WS reference.

NickHK

"moonhk" wrote in message
ps.com...
How to check worksheet contents of Arrow? if yes, the start to clear
Arrows (Auditing Arrows) ?

loSheet.ClearArrows '~~ <-- If worksheet without Arrows, will
case
runtime error 1004.