Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
With Activecell
.interior.color = .Value
End With
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Value = "" Then Exit Sub
If IsNumeric(.Value) Then _
.Interior.Color = .Value
End With
End Sub