Conditional Formatting on Watermark

Question

Hi!

Is it possible to conditionally formatt a watermark. For example, I have a watermark displaying "Work In Progress" and I want it there when a specific cell (B14) equals "Under Evaluation". I would like the watermark to disappear when the cell displays other options.

I saw code that was similar to this, but was unable to modify it for my use.

Thanks.

Answer 1

You can use a Change event:

Private Sub Worksheet_Change(ByVal Target As Range)

    '   Code goes in the Worksheet specific module

    Dim rng As Range

        '   Set Target Range, i.e. Range("A1, B2, C3"), or Range("A1:B3")

        Set rng = Target.Parent.Range("A1")

             '   Only look at single cell changes

            If Target.Count > 1 Then Exit Sub

            '   Only look at that range

            If Intersect(Target, rng) Is Nothing Then Exit Sub

            '   Action if Condition(s) are met (do your thing here...)

            If Target.Value = "Work In Progress" Then

                    ActiveSheet.SetBackgroundPicture Filename:= _

                        "Add your image reference here"

            Else

                ActiveSheet.SetBackgroundPicture Filename:=""

            End If

End Sub