+ Reply to Thread
Results 1 to 1 of 1

Worksheet_Change function

  1. #1
    Registered User
    Join Date

    Worksheet_Change function

    I am trying to get a Worksheet_Change function to run. I have one workbook with data and another with pivot tables. I need the function to run on change of a cell so I can update my pivot tables. I'm not sure why it won't run. I have it in 'ThisWorkbook'.

    Here is my code:
    Private Sub Worksheet_Change(ByVal Target As Range)

    'Worksheets("Recycling Center").Unprotect Password:="cory"
    If Not Intersect(Target, Range("H18")) Is Nothing Then
    MsgBox "You changed cell H18."
    End If

    If Not Intersect(Target, Range("H18").EntireColumn) Is Nothing Then
    MsgBox "You changed something in column H."
    End If
    'Worksheets("Recycling Center").Protect Password:="cory"

    End Sub

    Thanks in advance.
    Last edited by corina7sis; 01-24-2005 at 12:28 PM. Reason: put code in

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)


Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1