Run-Time error '1004' The specified value is out of range

Question

Sub FindInShapes1()   
Dim rStart As Range
Dim shp As Shape
Dim sFind As String
Dim sTemp As String
Dim Response

sFind = InputBox(\"Search for?\")
If Trim(sFind) = \"\"         


        

Answer 1

There is nothing wrong with your code. You will only get this error if the Active worksheet is password protected.

Can you check that?

Also check below url from so

Excel macro "Run-time error '1004"