Not sure what you mean but put this into the sheet1 module

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell = Range("C2") Then
Run "Filenames"
End If
End Sub

"Safi." wrote:

Hi,
I wanted to have control over the files present in my hard drives..My Date
is 3 columns A,B,C. column A has drive name Column B has short discription of
file and Column C will have the names of files..to fill in column c i have
used this VBA code.



Sub Filenames()
Dim FName As Variant
If Application.ActiveCell.Address = "$C$2" Then

FName = Application.GetOpenFilename(filefilter:="All Files, *.*) *.*")
If FName < False Then
Worksheets("Sheet1").Cells(5, 3).Value = FName
End If
End If
End Sub

My Requirement is that when ever i click on any cell in column c. the above
code have to run and fill the complete file name in that cell. like this
automatically moves to next cell and next cell to fill up column C...plz help
on this.