Cell value in Code; not working

[countryfan_nt]

Hello friends, hope all is well!

Please help me fix the below code; this line has an error:
Sheet2.Shapes("& Sheets("Report").Range("D4").Value&"")" & .Visible = True

Thank you very much in advance

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D4")) Is Nothing Then

Select Case Sheets("Report").Range("D4").Value

Case Sheets("Report").Range("D4").Value
Sheet2.Shapes("& Sheets("Report").Range("D4").Value&"")" & .Visible = True

End Select

End If
End Sub

 

[RoryA]

That line should look like this:

Sheet2.Shapes(CStr(Sheets("Report").Range("D4").Value)).Visible = True

 

[countryfan_nt]

great, thank you! a new problem if you don't mind. I am getting the error: Run Time Error: The item with the specified name wasn't found.
please help me correct the code above. btw the code is supposed to look like this: Sheet2.Shapes("7").Visible = True, but instead of fixing it to 7, I chose to allow it to have more flexibility.
and yes there is a shape called 7.

thanks again!

 

[RoryA]

Either the shape name is wrong, or the value in D4 is not actually 7 - perhaps it has leading or trailing spaces?