Boa tarde Gente,

Vocês podem me ajudar com a função abaixo , para fazer com que a mesma selecione toda a coluna e a linha da celula selecionada sem passar das bordas da planilha criada pelo usuario (indo horizontalmente da primeira até a ultima coluna criada e verticalmente da primeira até a última linha criada pelo usuario). Estou mandando arquivo de exemplo. Grato pela atenção.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
' Clear the color of all the cells
Cells.Interior.ColorIndex = 0
With Target
' Highlight the entire row and column that contain the active cell
.EntireRow.Interior.ColorIndex = 8
.EntireColumn.Interior.ColorIndex = 8
End With
Application.ScreenUpdating = True
End Sub