A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
Right click on the tab for the relevant worksheet, select View Code and paste this subroutine into the the resulting module. You should first click on the image to find its name - then change 'Picture 1' to the correct name. best wishes
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Range("A1")
If Not Intersect(Target, rng) Is Nothing Then
If UCase(Range("A1")) = "FIXED FEE" Then
ActiveSheet.Shapes("Picture 1").Visible = True
Else
ActiveSheet.Shapes("Picture 1").Visible = False
End If
End If
End Sub