GBKEE

¦^´_ 1# Scott090
¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Private Sub Worksheet_Calculate()
   
3.     Dim Rng  As Range
   
4.     On Error GoTo LL
   
5.     Set Rng = UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors)
   
6.     Rng.Select
   
7.     MsgBox Rng.Address & " ¤½¦¡¦³¿ù»~­È"
   
8. LL:
   
9. End Sub

½Æ»s¥N½X