Hi Michael A
try this in your sub after inputbox

Application.ScreenUpdating = False
Workbooks.Open Filename:= _
"\\Server1\Important Files\" & sStuff & ".xls"
Worksheets("your sheets name").Activate
Range("B20") = Worksheets("your sheets
name").Range("H3").Value
ActiveWorkbook.Close False
Application.ScreenUpdating = True

regards yngve