Então aqui está o código que estou usando. Está configurado para rodar a partir de qualquer página (como em você não precisa estar na página, configure a página no código)
Sub CreateFile_KML()
Dim shtKML As Worksheet
Set shtKML = ThisWorkbook.Sheets("KML")
i = 2
Do While Not IsEmpty(shtKML.Cells(i, 2))
MyFile = "Macintosh HD:Users:cherryredspyder:Desktop:Testting:" & shtKML.Cells(i, 1).Value
fnum = FreeFile
Open MyFile For Output As fnum
Print #fnum, shtKML.Cells(i, 2).Value
Close fnum
i = i + 1
Loop
End Sub
O comprimento do arquivo não pode ser maior que 32 caracteres.