File Name To Be Added In Referenced Cell

I have 15 files in a folder and need vba code which would open every file from the specified folder and add that file name in the row starting cell "D1" in the "Master File". Below is the code which opens the file from the folder, but need the updated code which will add the opened file name. Also can u pls update this code to not open the "Master file" which is in the same folder when it loops..

VB:
Sub Login_summary()
Dim MyPath As String, FilesInPath As String
Dim MyFiles() As String
Dim Fnum As Long

[Code] ....