Not without VBA to lay a shape over the cells.
Here is one method.......................
Create a rectangle using the drawing toolbar, add the text "Paid" to the shape.
Size the shape to fit over D5:G8.......see below for a macro to change the name
of the shape to "paid"(no quotes)
Give the shape a transparent background and the text font to size 36 colored a
light pattern.
Add this event code to the sheet module.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim opic As Shape
ActiveSheet.Shapes(msoShapeRectangle).Visible = False
With Range("K5")
For Each opic In ActiveSheet.Shapes
If opic.Name = .Text Then
With ActiveSheet.Range("D5")
opic.Visible = True
opic.Top = .Top
opic.Left = .Left
Exit For
End With
End If
Next opic
End With
End Sub
Thanks to John McGimpsey for the original code.
To change the name to "paid" enter the word paid in A2 then run this macro.
Sub Rename_Pics22()
Dim Pic As Shape
Dim rng As Range
Dim i As Integer
On Error GoTo endit
Set rng = ActiveSheet.Range("A2")
For Each Pic In Selection.ShapeRange
Pic.Name = rng.Offset(i, 0).Value
i = i + 1
Next Pic
Exit Sub
endit:
MsgBox "there is a picture by that name, re-type a name"
End Sub
Gord Dibben MS Excel MVP