worksheet_change function not working in Excel

sorry, i meant
If  Not Application.Intersect(Target,Range("A4")) Is Nothing Then

Sébastien

Sorry, tried that and nothing happens with that, either

Try
Worksheet_SelectionChange(ByVal Target As Excel.Range)

That worked fine:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$B$4" Then
MsgBox "!"
End If
End Sub

If even Zmey2' code doesn't work then maybe you have got events turned off somehow?

Try this:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  MsgBox "does this work"
end sub

If that doesn't respond with a message box when you change a cell on that sheet then go to the VBA editor and press Control_G to bring up the immediate window and type:

Application.EnableEvents=True

and hit enter.  Now try changing a cell.

Steve

I've tried those methods and it doesn't work

I tried the

?Application.EnableEvents=True in the immegiate window, the reply came up True, but the code still produced no message box!!

Why??

Don't use the ? to print the result of comapring  Application.EnableEvents with True, just type

Application.EnableEvents=True

or ? Application.EnableEvents  which might print FALSE if that is your problem.

Steve

No no no no, I tried it without the ?, then, as a check, I tried it with the ? to check to see if it had worked.  It had, but the code didn't function correctly

Calm down..... :-)

OK, the code is as simple as it gets and does work so there is obviously something odd with your workbook or Xl installation.  Have you had any macros running from worksheet events before on this PC and/or does it work if you start a fresh new workbook with just this code in?

I presume you are adding the code to one of the sheets areas and not workbook or a module?  Sorry, but have to ask.

Steve

feeling slightly sheepish now, but "one of the sheets areas"?  Where, and what are these?  It might possibly be in a module, if you happen to ask.....

BTW If you are not familiar with how these events work when in one of the sheets areas in VBA change the left hand menu to "worksheet" and in the right hand one you can choose the different events. e.g.

sub worksheet_activate()
 MsgBox "Just changed sheets"
end sub

Steve

Ok, seems to have lost a repl of mine, so I apologisie if this is posted twice - I waited 5 mins, and nothing hapeened, so....

Anyway, I did know about the sheet code, in a removed, I knew I could but am stupid way.  The code that was for the button that does this was already there!

My final code, for changing the axis of a graph depending on the value of two cells is...


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   
    If Target.Address = "$B$4" Then
   
    Set Xscale = Range("$B$4")
       
    ActiveSheet.ChartObjects("Chart 1").Activate

    With ActiveChart.Axes(xlCategory)
        .MinimumScale = 0
        .MaximumScale = Xscale
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
        .Crosses = xlCustom
        .CrossesAt = 0
        .ReversePlotOrder = False
        .ScaleType = xlLinear
    End With
   
    ElseIf Target.Address = "$B$5" Then
   
    Set Yscale = Range("$B$5")
       
    ActiveSheet.ChartObjects("Chart 1").Activate

    With ActiveChart.Axes(xlValue)
        .MinimumScale = 0
        .MaximumScale = Yscale
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
        .Crosses = xlCustom
        .CrossesAt = 0
        .ReversePlotOrder = False
        .ScaleType = xlLinear
    End With
   
    End If
   
End Sub