Without a command button
This assumes that it is the same cell in every sheet
Amend the 3 constant values to match your file path, file name and the cell reference
The change in the value of the cell A1 triggers file to open
Test in attached file
Code is in sheet module
Private Sub Worksheet_Change(ByVal Target As Range)
Const FilePath = "C:\TestArea\" 'end with "\"
Const FileName = "ThisIsYourFile.xlsx" 'incl extension
Const CellRef = "F10"
Dim sht As String, wb As Workbook
If Not Intersect(Range("A1"), Target) Is Nothing Then
If Target <> "SELECT" Then
sht = Target.Value
'reset cell value
Application.EnableEvents = False
Target.Value = "SELECT"
Application.EnableEvents = True
'open workbook, select corect sheet and cell
Set wb = Workbooks.Open(FilePath & FileName)
wb.Sheets(sht).Activate
ActiveSheet.Range(CellRef).Select
End If
End If
End Sub
Bookmarks