Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　参照元セルへの矢印を削除する
'
'  Copyright(C) 2000 Sunago
'
Option Explicit

'■■■　参照元セルへの矢印を表示する　■■■
Sub Macro1_Pre()
Dim myCell

    With Worksheets("Sheet1")
        For Each myCell In .Cells.SpecialCells(xlCellTypeFormulas, 23)
            On Error Resume Next
            '参照元への矢印を表示する
            myCell.ShowPrecedents
            On Error GoTo 0
        Next
    End With
End Sub

'■■■　トレース矢印を削除する　■■■
Sub Macro1_Reset()
    'トレース矢印(参照元セルへの矢印など）を削除する
    Worksheets("Sheet1").ClearArrows
End Sub