Seria algo assim (dê ma olhada no final, não entendi o que vc quer selecionar):

Ah, e eu indentei o código (é uma das boas práticas de programaçao)

Sub recibo_semanal()

Application.ScreenUpdating = False 'Não atualiza a tela enquanto executa a macro, reduzindo o tempo de execução

Dim i As Long 'sempre declare variáveis, o código fica melhor e mais rápido
Dim j As Long 'se o j para contar casos onde não tem o "o", assim a msgbox vai para após o for next

j = 0
For i = 1 To 50
    If Range("g" & i) = "o" Then
        Plan3.Range("A6") = Range("F11")
        Plan3.Range("B19") = Range("A" & i)
        Plan3.Range("C19") = Range("C" & i)
        Plan3.Range("D19") = Range("D" & i)
        Plan3.Range("E19") = Range("E" & i)
        Plan3.Range("F19") = Range("F" & i)
    Else
        j = j + 1
    End If
Next

If j = 50 Then 'como são 50 repetições no laço for next, se j for 50 significa que não há nenhum "o" no intervalo
    MsgBox "gentileza definição da semana para impressão."
    Range("f7").Select
Else
    Plan3.Select
    Range("a1").Select
End If

Application.ScreenUpdating = True

End Sub

Abs

perfeito!!!
Era isso mesmo que eu queria!!
Obrigadasso gtsalikis!!!!