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, "<html><head><title>Osalejate tabel</title></head>" & Chr(13) & _
            "<body> " & Chr(13) & _
       "<table border><tr><td>Nimi</td><td>Snniaasta</td><td>Telefon</td>" & Chr(13)
  For reanr = 2 To ala.Rows.Count
    Print #1, "<tr>" & Chr(13)
    For veerunr = 1 To 3
      Print #1, " <td>" & ala.Cells(reanr, veerunr) & "</td>" & Chr(13)
    Next veerunr
  Next reanr
  Print #1, "</table></body></html>"
  Close #1
End Sub
