Dim filetypenm as string
filetypenm = InputBox("Enter File Name you would like to compare")

Dim nm as string
nm = InputBox("Enter Year you would like to compare")

dim sTmp as string
stmp = chr(34) & "C:\Documents and Settings\All Users\"
stmp = stmp & "Documents\Coop Students\"
stmp = stmp & "Small Package Rates\UPS rates\"
stmp = stmp & nm & "\ Air \"
stmp = stmp & filetypenm & chr(34)

Application.GetOpenFilename(stmp)

Helmut Weber