运行时错误9。 下标超出范围错误

Question

I am using a code to search other sheets in the same workbook for particular text this option works well on my system however does not work on a different one. Can anyone assist me why.
This is on excel and VBA was used to create the macros and Below is the code

Sub Search_Macro()
'
' Search Macro
'
    Dim Sheet_Name As String
    Dim Search_string As String
    Dim Rng As Range
    
    Sheet_string = 0
    
    
    Sheet_Name = Sheets("Summary").Range("O23").Value
    Sheet_string = Sheets("Summary").Range("O27").Value
    
    If Sheet_string = 0 Then
        MsgBox "Select correct Product and Topic", vbOKOnly
             
        Exit Sub
    End If
                 
                              
    Sheets(Sheet_Name).Select
    Set Rng = Range("A1:Z500").Find(Sheet_string)

    If Rng Is Nothing Then
        Sheets("Summary").Select
        MsgBox "Select correct Product and Topic", vbOKOnly
    Else
        Cells.Find(What:=Sheet_string, After:=Range("A1"), _
        LookIn:=xlFormulas2, LookAt:=xlPart, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    End If
End Sub

Answer 1

It is just a shot into dark, since no info of what type of error you get on the other system, but I would guess you perhaps either misspelled the sheet name in you input cell O23 or the position of the input cell has changed and the macro code get the content of a different cell.

Be especially careful about spaces vs. underscores in the sheet names, spaces before and after the sheet name. It happens a lot:)