Write a string of text to all HTML files

You will find quite a few examples online I'd think regards finding / iterating files by type etc... one option might be something along the lines of:

Dim vDir As Variant, strPath As String
strPath = "Z:\HTML\*.HTML"
vDir = Dir(strPath)
Do While Len(vDir) > 0
    '...do stuff with vDir...
    vDir = Dir()
Loop