Option Explicit
Sub Test()
Dim wkb As Excel.Workbook
Dim rngResult As Excel.Range
Dim vntFileList As Variant
Dim vntFile As Variant
vntFileList = Array("H:\Test1.xlsx", _
"H:\Test2.xlsx", _
"H:\Test3.xlsx")
For Each vntFile In vntFileList
Set wkb = Workbooks.Open(vntFile)
Call wkb.Activate
On Error Resume Next
Set rngResult = Nothing
Set rngResult = Application.InputBox("Range", Type:=8)
On Error GoTo 0
If rngResult Is Nothing Then
Else
Call MsgBox("Zelle: " & rngResult.Cells(1).Address & vbNewLine & _
"Wert: " & rngResult.Cells(1).Value, vbInformation)
End If
Call wkb.Close(SaveChanges:=False)
Next
End Sub