Guru do Excel e Power BI

Sub FiltraSemanaEAno()
 Dim ans As String, ws As Worksheet, LR As Long, StartDate As Date, EndDate As Date
  ans = InputBox("DIGITE O NÚMERO DA SEMANA E O" & vbLf & "ANO SEPARADOS POR UM ESPAÇO")
  If ans <> "" Then
   For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Mira" Then
     On Error Resume Next
     ws.ShowAllData
     On Error GoTo 0
     LR = ws.Cells(Rows.Count, 1).End(3).Row
     ws.[A8:Q8].AutoFilter 9, Left(ans, Len(ans) - 5)
     StartDate = DateSerial(Right(ans, 4), 1, 1)
     EndDate = DateSerial(Right(ans, 4), 12, 31)
     ws.[A8:Q8].AutoFilter Field:=10, Criteria1:=">=" & CDbl(StartDate), Operator:=xlAnd, Criteria2:="<=" & CDbl(EndDate)
    End If
   Next ws
  End If
End Sub

Sub MostraTudo()
 Dim ws As Worksheet
  For Each ws In ThisWorkbook.Worksheets
   If ws.Name <> "Mira" Then
    On Error Resume Next
    ws.ShowAllData
    On Error GoTo 0
   End If
  Next ws
End Sub