Boa tarde,

Preciso de uma ajudinha, Tenho no meu projeto o seguinte código:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If ActiveCell.Column <> 13 Then Exit Sub

ActiveCell.Value = "OK"
ActiveCell.Offset(1, 0).Select

End Sub

Ou seja, Quando eu dou um duplo clique do mouse em qualquer célula da coluna "M" (13), o texto "OK" aparece automaticamente.

O que eu não estou conseguindo fazer é colocar isso para funcionar para mais de uma coluna. por exemplo a 13, a 18 e a 23 por exemplo, que são diferentes.

Qualquer dica será bem vinda, grato.