Merging code for hiding columns and setting chart axes values

Hi,

I'm trying to create a code that when run hides a selection of columns and defines the minimum and interval value for a chart on the active worksheet. My attempt is assigned to the 'update skills' button at the top of the "GRAPH" worksheet of the attached workbook.

Any help would be much appreciated,
Joe

A few things.
Currently the cells you are checking have #REF errors. I have added error check to hide these. You might want to actually fix the formula.

You had no Next line.
No reference to the Axes object for setting values.

Sub Update()
Application.ScreenUpdating = False
    For Each cell In Range("AA1:DU1").Cells
        If Not IsError(cell) Then
            If LCase(cell) = "hide" Then
            cell.EntireColumn.Hidden = True
            Else: cell.EntireColumn.Hidden = False
            End If
        Else
            cell.EntireColumn.Hidden = True
        End If
    Next
    With ActiveSheet.ChartObjects(1).Chart
            ' Value (Y) Axis With .Axes(xlValue)
        With .Axes(xlValue)
            .MinimumScale = ActiveSheet.Range("$X$4").Value
            .MajorUnit = ActiveSheet.Range("$X$5").Value
        End With
    End With
End Sub