Only want this macro to run when column A cells 4-13 are selected

[tonywatsonhelp]

Hi everyone,
I have this macro that run anytime the sheet has a change done to it,
however I'd prefer if it only ran anytime Column A cells 4 to 13 were selected
(that's any one of the cells, not all the cells together.)

please can someone show me how to amend it, or what I need to do?

this is the macro:

Private Sub Worksheet_Change(ByVal Target As Range)
   ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).MinimumScale = Range("e25")
    ActiveChart.Axes(xlValue).MaximumScale = Range("d25")
   
End Sub

thanks

Tony

 

[Snakehips]

Tony,

Try...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("A4:A13")) Is Nothing Then Exit Sub


   ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).MinimumScale = Range("e25")
    ActiveChart.Axes(xlValue).MaximumScale = Range("d25")
   
End Sub

Hope that helps.

 

[tonywatsonhelp]

Hi Snakehips,
Wow, that works perfectly,
big thank you
and on a Saturday!

Tony

 

[Snakehips]

Don't forget that I charge double on a Saturday!
And then of course, there will be the +25% 'works perfectly' supplement.
Please advise postal address for invoice.