Consulte a folha que a entrada do usuário denominada

Depois de executar a macro e gerar dados nesta planilha original, solicito ao usuário que nomeie essa planilha original usando o código abaixo.

oriSheet = InputBox("Please Name the Sheet?", vbOKCancel)
If oriSheet = False Or oriSheet = "" Then
MsgBox "Invalid Name"
Exit Sub
Else
ActiveSheet.Name = oriSheet
End If
oriSheet = ""

Então eu corro outra sub, para pegar o oriSheet agora para filtragem.
É possível consultar essa planilha usando a variável?
Porque parece que não chego lá com o erro "subscrito fora do intervalo" no código abaixo.

Set sht = ThisWorkbook.Worksheets("oriSheet")
Set newsht = ThisWorkbook.Worksheets("sheet2")

Tirei as aspas duplas pensando por causa delas, oriSheet não é interpretado, como outra linguagem de programação. Mas ainda não está funcionando.

Achei que poderia ser fácil, mas havia passado horas nisso.
Eu entrei no Google, há um ditado que diz: "Há duas maneiras de se referir à planilha, por índice (mas idk o índice) e por nome (mas idk o nome também?)"

Altere sua primeira macro para armazenar oriSheetem outra variável no final dela;

Public oriSheetRecorder As String
oriSheet = InputBox("Please Name the Sheet?", vbOKCancel)
If oriSheet = False Or oriSheet = "" Then
MsgBox "Invalid Name"
Exit Sub
Else
ActiveSheet.Name = oriSheet
On Error Goto Errorhandler
oriSheetRecorder = oriSheet
oriSheet = ""
End If

Errorhandler:
MsgBox "Name of the active sheet is " , ActiveSheet.Name, "It is Invalid Name or an error has happened"
Exit Sub

Então, no seu segundo, Subtenha o seguinte:

Set sht = ThisWorkbook.Worksheets(oriSheetRecorder)
Set newsht = ThisWorkbook.Worksheets("sheet2")

O motivo pelo qual seu código não funciona no momento é o seguinte: você limpa oriSheetnesta linha: oriSheet = ""mais tarde, não é possível consultá-lo. Além disso, você não precisa (não deve) colocar "uma variável. double-quoteno excel é para distinguir entre textos e comandos e variáveis. oriSheeté uma variável que é uma string por sua definição, para que nunca precise "ser identificada como texto.