MsgBox if a range of cells do not sum to 100%

I have a range of cells that should sum to 100%. If they do not, I want a MsgBox to appear saying that the user needs to adjust the cells until they are 100%. (And if the sum is 100%, no MsgBox appears)

This code is not working - do I need to define the target, or revise/add lines? please help, thank you, and have a great holiday.

Private Sub Worksheet_Change(ByVal Target As Range)
    
        If Sum(Range("I17:I46")) = "1" Then Exit Sub
        If Sum(Range("I17:I46")) <> "1" Then
            MsgBox "Adjust cells To sum to 100%"
        End If
End Sub