Cole a rotina abaixo no modulo de EstaPasta_de_trabalho

Private Sub Workbook_Open()

    Dim wsInicio As Worksheet
    
    'Altere para o nome da aba que quer
    Set wsInicio = Sheets("Plan2")
    
    wsInicio.Activate
    
    Range("b18").Activate
    
End Sub

[]s

Coloque no módulo EstaPastadeTrabalho

Private Sub Workbook_Open()
    With ActiveSheet
        If .Type = xlWorksheet Then
            .Range("B8").Select
        End If
    End With
End Sub