A simple makro in Excel - listing the names of png files in the folder

Sub Makro1()
Dim MyFolder As String, MyFile As String
Dim i As Long
MyFolder = "E:\works\ufuk\ufukAksesuar01\galeri\big\stopper"
MyFile = Dir(MyFolder & Application.PathSeparator & "*.png", vbDirectory)
Do While MyFile <> ""
Cells(i + 1, 1) = MyFile
i = i + 1
MyFile = Dir
Loop

End Sub