get imported file name/date

I need to print the name of the file that I open into excel and the date it was created (or opened) onto cells H5 and I5
so far, opening the file is this...

sub open()
sFileName = Application.GetOpenFilename

    If sFileName = False Then
        Exit Sub
    End If
    
    MyWorkBook = ActiveWorkbook.name
    'Clear the sheet
    ActiveSheet.Cells.Clear
    'open the specified file
    Workbooks.Open (sFileName)
    'set a variable to the file name (gets name of file without path)
    CBook = ActiveWorkbook.name
    'copy the data range
    Range("A:D").Copy
    'go back to the original workbook
    Windows(MyWorkBook).Activate
    'code to select the proper cell to paste to
    Cells(1, 1).Select
    ActiveSheet.Paste

end sub

any ideas?

Hello eminthepooh,

Please wrap your code.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing.


How to wrap your Code
1. Select all your code using the mouse.
2. Click on the # icon on the toolbar in the Message window. This will automatically wrap the text you selected with the proper Code tags to create a Code Window in your post.

3. You can also do this manually by placing the tags
[code] at the start of the line,
[/code] at the end of the line.

For more information about these and other tags, found here