Datei aus Zelleninhalt erstellen

Sub CreateHTML()
Const Dateiname = "C:\test.html"
Dim ff As Integer
ff = FreeFile
Open Dateiname For Output As ff
Print #ff, Sheets("Tabelle1").Range("A1").Value
Close #ff
End Sub

Der funkt auch wunderbar! Ich brauche nun aber eine erweiterung von diesem code.
Ich habe mehrer Zeilen (unterschiedlich) wo in A der Inhalt der Datei drin ist un din B der Name unter dem die Datei gespeichert werden soll.
Kann man sowas machen?
MFG
Martin Sch.