Do While Loop - buka file yang ada dalam folder

Option Explicit
Sub test()

Dim fileku As String, lokasi As String

lokasi = "D:\Raport Nafa\"
fileku = Dir(lokasi & "*.xlsm")

Do While fileku <> ""
Workbooks.Open lokasi & fileku
fileku = Dir()
Loop

End Sub