This article was previously published under Q213612
For a Microsoft Excel 97 and earlier and Microsoft Excel 98 Macintosh Edition and earlier version of this article, see 142154.
In Microsoft Excel, you can create a macro that is called only when a value is entered into a cell in a particular sheet or in any sheet that iscurrently open.
Note, however, that you should not call macros unnecessarily because theyslow down the performance of Excel.
Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. In many instances, a macro should run only when a certain number of cellshave values entered into them (referred to as the "key cells" in thisdocument). In order to prevent a large macro from running every time avalue is entered into a cell of a sheet, you must check to see if theActiveCell is one of the key cells. To accomplish this, use theIntersect method on the ActiveCell and the range containing the key cells to verify the ActiveCell is one of the key cells. If the ActiveCell is in the range containing the key cells, you can call the macro.
To create the Visual Basic macro:
Right-click the Sheet1 tab and then click View Code.
The module sheet behind Sheet1 is opened.
Type the following code into the module sheet:
Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range ' The variable KeyCells contains the cells that will ' cause an alert when they are changed. Set KeyCells = Range("A1:C10") If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then ' Display a message when one of the designated cells has been ' changed. ' Place your code here. MsgBox "Cell " & Target.Address & " has changed." End IfEnd Sub
Click Close and Return to Microsoft Excel on the File menu.
When you type an entry in cells A1:C10 on Sheet1, a message box is displayed.