Private Sub kirjutaHTML_Click()
Dim reanr, veerunr, ala As Range
ActiveSheet.Range("a1").Select
Set ala = ActiveCell.CurrentRegion 'lahtriga ühendatud piiritletud ala
Open Application.GetSaveAsFilename( _
"katsetus.html", "HTMLi failid (*.html), *.html", 1, _
"Veebilehe salvestamine", "Valmis" _
) For Output As #1
Print #1, "Osalejate tabel" & Chr(13) & _
" " & Chr(13) & _
"
Nimi
Sünniaasta
Telefon
" & Chr(13)
For reanr = 2 To ala.Rows.Count
Print #1, "