Funtion and Cell

[henpat]

Good morning/afternoon

I need to execute a function only when the cell "B4" change of value.
How can I do it?
Thanks in advanced
(Office 2003)

henpat

 

[Norman Jones]

Hi Henpat,

Try something like:

'=================>>
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range

Set rng = Range("B4")
If Not Intersect(rng, Target) Is Nothing Then
'Do something, e.g.:
MsgBox "Hi!"
'or:
Call MyMacro
End If
End Sub
'<<================

This is worksheet event code and should be pasted into the worksheets's
code module (not a standard module and not the workbook's ThisWorkbook
module):

*******************************************
Right-click the worksheet's tab

Select 'View Code' from the menu and paste the code.

Alt-F11 to return to Excel.
*******************************************

 

[Norman Jones]

Hi Henpat,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Should be:

Private Sub Worksheet_Change(ByVal Target As Range)

 

[henpat]

Thanks

Hi Henpat,

Try something like:

'=================>>
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range

Set rng = Range("B4")
If Not Intersect(rng, Target) Is Nothing Then
'Do something, e.g.:
MsgBox "Hi!"
'or:
Call MyMacro
End If
End Sub
'<<================

This is worksheet event code and should be pasted into the worksheets's
code module (not a standard module and not the workbook's ThisWorkbook
module):

*******************************************
Right-click the worksheet's tab

Select 'View Code' from the menu and paste the code.

Alt-F11 to return to Excel.
*******************************************