Option Explicit

Sub SelecionarSemPonto()
Dim Planilha            As Worksheet
Dim rngCompleto         As Range
Dim arrCompleta         As Variant
Dim rngParaSelecionar   As Range
Dim i                   As Long
Dim j                   As Long

    Set Planilha = Worksheets("Planilha1")
    Set rngCompleto = Planilha.Range("A1:F1140")
    
    arrCompleta = rngCompleto.Value
    For i = LBound(arrCompleta, 1) To UBound(arrCompleta, 1) Step 1
        For j = LBound(arrCompleta, 2) To UBound(arrCompleta, 2) Step 1
            If arrCompleta(i, j) <> "." Then
                If rngParaSelecionar Is Nothing Then
                    Set rngParaSelecionar = rngCompleto.Cells(i, j)
                Else
                    Set rngParaSelecionar = Application.Union(rngParaSelecionar, rngCompleto.Cells(i, j))
                End If
            End If
        Next j
    Next i
    If Not rngParaSelecionar Is Nothing Then
        Planilha.Activate
        rngParaSelecionar.Select
    End If

    Set rngParaSelecionar = Nothing
    Set rngCompleto = Nothing
    Set Planilha = Nothing
End Sub

Muito obrigado.

Era isso mesmo que eu precisava!

Trancando...

p.s.: lembre de clicar na mãozinha