久しぶりにExcelVBA

Sub テキストとして出力()
fname = Cells(1, 3) + ".html"

fnsave = Application.GetSaveAsFilename(fname)

If fnsave = False Then Exit Sub
numff = FreeFile
Open fnsave For Output As #numff
For i = 1 To 10
temp = Cells(i, 1)
Print #numff, temp
Next i
Close #numff
End Sub