Изменение регистра букв

[Казанский]

То же, без цикла

Private Sub Workbook_Open()
  Dim s
  s = MsgBox("В верхний регистр (Да), в нижний регистр (Нет)?", vbYesNoCancel, "Преобразование регистра")
  If s <> vbCancel Then
    With [A1].CurrentRegion
        .Value = Evaluate("INDEX(" & IIf(s = vbYes, "UPP", "LOW") & "ER(" & .Address & "),)")
    End With
  End If
End Sub

[DiemonStar]

То же, без цикла

У меня не работает. Слишком мало аргументов в ИНДЕКС-е...