Высокие статистические технологии

Private Sub CommandButton1_Click()
    If Me.RefEdit1.Value <> "" Then
       iAddress = Application.ConvertFormula(Me.RefEdit1.Value, _
       IIf(Application.ReferenceStyle = xlA1, xlA1, xlR1C1), xlA1)
       If Not IsError(iAddress) Then
          'К сожалению этого мало, ибо RefEdit позволяет вводить практически всё что угодно,
          'поэтому, как ни печально, но по всей видимости, без использования On Error здесь не обойтись ...
          MsgBox iAddress, , ""
       End If
    Else
       MsgBox "Необходимо выбрать нужную ячейку/диапазон", , "Ошибка пользователя !!!"
    End If
End Sub

Private Sub UserForm_Initialize()
    Application.ReferenceStyle = xlR1C1 'а можно установить и xlA1, а при выгрузке формы - вернуть всё на круги своя
End Sub

Private Sub CommandButton1_Click()
    Dim iAddress, iRange As Range
   
    iAddress = Me.RefEdit1.Value
   
    If iAddress <> "" Then
       MsgBox "Адрес диапазона в стиле R1C1 : " & iAddress
       
       Set iRange = Range(iAddress) 'здесь должна возникнуть ошибка
    End If
End Sub

Private Sub UserForm_Initialize()
    Application.ReferenceStyle = xlR1C1
End Sub

Private Sub CommandButton1_Click()
    Dim iAddress, iRange As Range
   
    iAddress = Me.RefEdit1.Value
   
    If iAddress <> "" Then
       If Application.ReferenceStyle = xlR1C1 Then 'вроде бы необязательно, но только на первый взгляд, ибо изменение стиля ссылок (при инициализации формы) используется только в качестве примера.
          iAddress = Application.ConvertFormula(iAddress, xlR1C1, xlA1)
          MsgBox "Адрес диапазона в стиле A1 : " & iAddress
       End If
       
       Set iRange = Range(iAddress)
    End If
End Sub