Здравствуйте!
Имеется код:
Sheets("бланк МВШБ").Range("B9").Value = ActiveCell.Value
Sheets("бланк МВШБ").Range("A14").Value = ActiveCell.Offset(0, 1).Value

Активная ячейка имеет значение :ActiveCell.Value(Иванов Сергей Петрович)
Нужно получить значение Иванов В.П.Можно ли обработать это значение предварительно ,выбрать из символьной строки Буквы верхнего регистра или
может быть каким то другим способом попробовать.


Спасибо за совет.

Может быть так будет понятней:
Здесь вставляем конкретное значение,а у меня в таблице будет много ФИО,и нужно будет выбирать значение по активной строке.
Sub Макрос10()
'
' Макрос10
' '

'
Range("A84").Select
ActiveCell.FormulaR1C1 = "Шульман Татьяна Анатольевна"
Range("A91").Select
ActiveSheet.Paste
Range("A84").Select
ActiveCell.FormulaR1C1 = "Шульман Татьяна Анатольевна"
Range("A91").Select
ActiveCell.FormulaR1C1 = "Шульман Т."
Range("A84").Select
ActiveCell.FormulaR1C1 = "Шульман Татьяна Анатольевна"
Range("A91").Select
ActiveCell.FormulaR1C1 = "Шульман Т.А."
Range("A91").Select

End Sub

Спасибо.