How to change styles interior based on other cells

[exAHSacto]

Hi all,

I would like to know how I can change a certain style based on colors from two cells?

I would like to change the .TintAndShade colors to whatever color I put into cell A1 and A2.

I got this from recording...

    With ActiveWorkbook.Styles("Neutral")
        .IncludeNumber = True
        .IncludeFont = True
        .IncludeAlignment = True
        .IncludeBorder = True
        .IncludePatterns = True
        .IncludeProtection = True
    End With
    With ActiveWorkbook.Styles("Neutral").Interior
        .Pattern = xlPatternLinearGradient
        .Gradient.Degree = 90
        .Gradient.ColorStops.Clear
    End With
    With ActiveWorkbook.Styles("Neutral").Interior.Gradient.ColorStops.Add(0)
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = -0.999993896298105
 
    End With
    With ActiveWorkbook.Styles("Neutral").Interior.Gradient.ColorStops.Add(1)
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.299993896298105
    End With

Can anybody help me?

Thanks
Anders