Try to put following code into SelectionChange Event of your worksheet
:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then Range("A1") =
Application.GetOpenFilename
End Sub

P.S : Not tested


---
Message posted from http://www.ExcelForum.com/