Bom dia!

Galera ajuda eu!

Sub Romaneio()
    
    L = ActiveCell.Row
    C = ActiveCell.Column
    X = TextBox1.Value
    Plan_Atual = ActiveSheet.Name
    
    

        
        If C = 18 Then
    
            Ordem = ActiveSheet.Cells(L, 3).Value
            Desenho = ActiveSheet.Cells(L, 5).Value
            Conjunto = ActiveSheet.Cells(L, 1).Value
            Qtde = ActiveSheet.Cells(L, 7).Value
            
    
                Sheets(X).Select **** NOTA!
                     
               
      
    I = 1
        Do While Range("B" & I).Value <> ""
        I = I + 1
    Loop

    Range("B" & I).Select


            ActiveSheet.Cells(I, 2).Value = Conjunto
            ActiveSheet.Cells(I, 3).Value = Ordem
            ActiveSheet.Cells(I, 4).Value = Desenho
            ActiveSheet.Cells(I, 5).Value = Qtde
           
           Worksheets("Acompanhamento_Corte").Activate
            
            
                        
         End If

Nota*: Desejo que na hora que for selecionar a planilha, devera selecionar de acordo com o valor do textbox.Mas nao to conseguindo. O que tem de errado?

Grato