ClearArrows - Runtime Error 1004

[moonhk]

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.

 

[NickHK]

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

NickHK

 

[moonhk]

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

 

[Peter T]

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

 

[NickHK]

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

NickHK

 

[moonhk]

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

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

NickHK