Tente algo como
Dim namedRangeFirstCol: namedRangeFirstCol = Range("Test").Column
Dim namedRangeLastCol: namedRangeLastCol = namedRangeFirstCol + Range("Test").Columns.Count - 1
If Selection.Column >= namedRangeFirstCol And Selection.Column <= namedRangeLastCol Then
MsgBox Selection.Column - Range("Test").Column + 1
End If
A instrução IF é apenas para verificar se a célula selecionada está realmente dentro do intervalo. Você pode precisar apenas de Selection.Column - Range("Test").Column + 1