zmena_pisma_buniek_na_velke.vb

```VB
' Zmena veľkosti písmen vybraných buniek na veľké písmená
' Change the Letter Case of Selected Cells to Upper Case
Sub ChangeCase()
	Dim Rng As Range
	For Each Rng In Selection.Cells
		If Rng.HasFormula = False Then
			Rng.Value = UCase(Rng.Value)
		End If
	Next Rng
End Sub

``