title: Back to Index Button
body: <p>I have an excel file with 208 sheets and a summary sheet. Want to create a button to jump to each sheet. i am using the below codes for that.</p>
  
  <pre><code>Sub SearchSheetName()
  
  Dim xName As String
  Dim xFound As Boolean
  
  xName = InputBox("Enter sheet name to find in workbook:", "Sheet search")
  If xName = "" Then Exit Sub
  
  On Error Resume Next
  ActiveWorkbook.Sheets(xName).Select
  xFound = (Err = 0)
  On Error GoTo 0
  
  If xFound Then
      MsgBox "Sheet '" &amp; xName &amp; "' has been found and selected!"
  Else
      MsgBox "The sheet '" &amp; xName &amp; "' could not be found in this workbook!"
  End If
  
  End Sub
  </code></pre>
  
  <p>Going back to Summary sheet is difficult. so created macro with button</p>
  
  <pre><code>Private Sub CommandButton1_Click()
  
  Sheets("SummarySheet").Select
  
  End Sub
  </code></pre>
  
  <p>is there any easy way to create this button  in all the sheets together.</p>