X Axis Tick Labels

[Naftas]

I have created X axis tick labels number format at axis minimum and maximum:

maks1 = ActiveChart.Axes(xlCategory).MaximumScale
minim1 = ActiveChart.Axes(xlCategory).MinimumScale
znakx1 = "[=" & minim1 & "]""S"";[=" & maks1 & "]""N"";General"
With ActiveChart.Axes(xlCategory)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.TickLabels.NumberFormat = znakx1
End With

In some cases this works fine. But in some I have maximum label as I wish
"N" and minimum label as number. Also Is there way to automate this job with
Maksimum Sacale and Minimum Scale chart option changes.

Best Regards,
Naftas