OK. I got it to work nicely while searching the web..
Thanks to those who viewed my post...
This is the code..
ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.Axes(xlCategory).Select With ActiveChart.Axes(xlCategory) .MinimumScale = Range("n1").Value -----' this is where the values are' .MaximumScale = Range("n2").Value-----' this is where the values are' .MinorUnit = 1 .MajorUnit = 1 .Crosses = xlAutomatic .ReversePlotOrder = False .ScaleType = xlLinear .DisplayUnit = xlNone End With