Charts and changing axis bounds on multiple tabs at once

[abohlander]

I am trying to change x axis bounds to 220 thru 260 across multiple tabs at once.

 

[Worf]

Welcome to the Forum

Sub AllTabs()
Dim ws As Worksheet, ch As ChartObject, x As Axis
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
    For Each ch In ws.ChartObjects
        Set x = ch.Chart.Axes(xlCategory)
        If x.MaximumScale < 40000 Then
            x.MaximumScale = 260
            x.MinimumScale = 220
        End If
    Next
Next
On Error GoTo 0
End Sub

 

[abohlander]

where in VB do I copy it, i tried copying it to "thisworkbook and to every chart. i cant seem to get it to work on any of the tabs.

 

[Worf]

In a standard module such as Module 1.