Sub ConvRegistr1()
Dim DataRng As Range, cell As Range, Tip As Byte
On Error Resume Next
Tip = InputBox("ВСЕ ПРОПИСНЫЕ = 1" & vbLf & "все строчные = 2" & vbLf & _
"Начинать С Прописных = 3" & vbLf & "Как в предложениях = 4" _
& vbLf & "иЗМЕНИТЬ рЕГИСТР = 5", "Выбор типа конвертации", 2)
Set DataRng = Intersect(Selection, ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible))
If MsgBox("Заменить формулы на значения?", _
vbYesNo + vbQuestion, "Выбор типа конвертации") = vbNo Then
Set DataRng = Intersect(DataRng, ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants))
End If
With Application
' На всякий случай, вдруг надо. =)
.EnableEvents = False: .ScreenUpdating = False
For Each cell In DataRng
cell.Value = ConvertRegistr(cell.Value, Tip)
Next cell
.EnableEvents = True: .ScreenUpdating = True
End With
End Sub