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
news:(E-Mail Removed)...
> 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" <moon_ils-(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> > 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" <moon_ils-(E-Mail Removed)> wrote in message
> > > news:(E-Mail Removed)...
> > > > 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.
> > > >
> >
>
>
Similar Threads
