Sub lahtriTekstiSuurus()
  For Each lahter In Range("d5").CurrentRegion.Cells
    lahter.Font.Size = lahter.Value
  Next lahter
End Sub