Example: CustomMaxName and CustomMinName properties

Private Sub SetCustomRangeTags()
With Trend1
With .YAxis
.MinMaxOption = rstCustomMinMax
.CustomMin = rstCustomMinMaxTag
.CustomMax = rstCustomMinMaxTag
.CustomMinName = "MinName"
.CustomMaxName = "MaxName"
End With
End With
End Sub