i had only one sample htm file and it kept looping and importing the data from the same file
i did that deliberately for test as i also only had one sample file, just forgot to remove when posting, remembered after shutting down the computer

change f = Dir(fpath & "html extract.htm") at the bottom of the loop to
Code:
f = Dir
and the initial call to dir, to your file pattern as you had before, i changed that also as there were other html files in the folder, that were no use for testing