Gt, eu só não entendi esta colocação :
"Se eu estiver na célula C3:
O código só vai executar se eu tentar clicar nas células B2, B3, B4, C2, C4, E2, E3, E4 (só ao redor)."

De qualquer forma, já que está querendo aprender, acho mais fácil visualizando do que explicar tudo aqui, fiz este modelo utilizando a Propriedade Offset, que faz exatamente o que você quer, lógicamente deixei o range inicial fixo "C3", mas pode ser utilizado com uma Variável e tambem ajustar no evento definindo em Target.

De uma olhada se ajuda, e vá colocando as duvidas que por ventura surgirem.

Offset Adjacentes

[]s

Na verdade, Mauro, eu me expressei mal.

Em anexo, está uma parte da planilha que estou usando para estudar.

Coloquei 3 abas.

Na primeira, é o que eu consegui adaptar do código até o momento.

Na segunda, Um problema que eu tive por não entender o código (quando sai da célula, ela fica com um "0", isso eu resolvi com formatação de célula, mas não era bem o que eu queria);

Na terceira aba, o que eu não consigo implementar. Note que na primeira aba, o boneco pode "andar" para qualquer lugar da planilha, como se ele se teleportasse. O que eu quero é limitar esse movimento, fazendo com que o código só funcione se for selecionada uma das células adjacentes, as que eu destaquei dentro da borda.
Como estou tentando aprender, eu pensei que, sabendo o que cada linha daquele código faz, eu seria capaz de continuar com o que eu quero.

Consegui chegar onde eu queria com o seguinte código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

' Coloca o caractere definido na célula selecionada, e o exclui quando seleciona-se outra célula (simula que está caminhando).
Dim inter
Dim iTbl
Dim fTbl
Dim char As String
    iTbl = Range("CN62").Value
    fTbl = Range("CO62").Value
    Set inter = Intersect(Target, Range(iTbl, fTbl))
    char = Range("CM61").Value

    If Target.Count > 1 Then Exit Sub
     If inter Is Nothing Then 'não faz nada
      Else
      On Error GoTo Nao_anda
       Range(Range("CM62").Value).ClearContents
        Target.Value = char
         Range("CM62").Value = ActiveCell.Address
         Range("CN62").Value = ActiveCell.Offset(-1, -1).Address
         Range("CO62").Value = ActiveCell.Offset(1, 1).Address
            
      End If

Exit Sub

Nao_anda:

Call MsgBox("You cannot go further.", vbOKOnly, "Action denied")

End Sub

A tua ajuda com o Offset já me ajudou, combinei com o Intersect e deu certo. Obrigado, Mauro.

Boa noite!!

sendo assim, seu tópico será marcado como resolvido!!

Att

Ah, obrigado, Alexandre.

Eu ia fazer essa marcação, só tinha esperado um pouco pra ver se o Mauro ia responder algo.

Ah, obrigado, Alexandre.

Eu ia fazer essa marcação, só tinha esperado um pouco pra ver se o Mauro ia responder algo.

Ops, peço desculpas pelo não retorno, cheguei a ver que tinha resolvido, mas como estava no final do expediente e a internet, pra variar, deu problema acabei não postando nada e mais tarde comecei fazerr outras coisas e nem me lembrei.

Mas valeu pela consideração, eu só não consgui testar ainda, aqui no serviço temos excel 2003 e as vezes consigo abrir algum da v 2007 atraves de um path ou por excel portable, isto quando não bloqueiam.
Mas no 2003 deu erro nos ranges com intersect e não descobri ainda em que momento são inserido os endereços nas celulas.
De qualquer forma, se para o que quer está funcionando, é o que importa, parabens pela dedicação e esforço em aprender.