matoso2010,

Bom Dia!

Veja se assim atende.

Sub inserir_caractere()
     Dim cl As Variant
     Dim rLocal As Range
     Dim Caracter As String
     Set rLocal = Application.InputBox(Prompt:="Selecione as células que deseja inserir caracter...", Type:=8)
     rLocal.Activate
     For Each cl In Selection
          Caracter = InputBox("Digite o caracter para marcar a linha", "MARCA")
          cl.Value = Caracter & cl
     Next cl
End Sub

Ops! Desculpe Morel, não havia visto seu post antes de postar, mas fica como outra possibilidade.
Voce pode "indicar" que o valor do caracter desejado está em uma celula e referenciar o codigo a esse local
Ficaria mais ou menos assim (considerando utilizar a celula A1 da palnilha 1)

Sub inserir_caractere()
Dim cl As Variant
Dim rLocal As Range
Dim MeuCaract as string
MeuCaract=sheets("Plan1").Range("A1").value
Set rLocal = Application.InputBox(Prompt:="Selecione as células que deseja inserir caracter...", Type:=8)
rLocal.Activate
For Each cl In Selection
cl.Value = MeuCaract  & cl
Next cl
End Sub

Obrigado pessoal pelo retorno:

Morel, o único problema é que tenho que preencher no box para cada célula selecionada, se tiver como fazer tudo em uma só vez, ficaria perfeito.

Reinaldo, essa solução atende, funciona perfeitamente.

Obrigado pessoal pelo retorno:

Morel, o único problema é que tenho que preencher no box para cada célula selecionada, se tiver como fazer tudo em uma só vez, ficaria perfeito.

Reinaldo, essa solução atende, funciona perfeitamente.

Me intrometendo no post, é só alterar a çinha abaixo de lugar :

Caracter = InputBox("Digite o caracter para marcar a linha", "MARCA")
Coloque-a logo após a instrução : rLocal.Activate

Alias a diferença entre as rotinas do Morel e Reinaldo é que uma pega o caracter digitado em uma Celulça e outra por um imputBox.

[]s