Basta mudar Activesheet por Sheets(ToggleButton"?".Caption)

Altere o código do seu userform por esse:

Private Sub ComboBox1_Change()
'Updateby Extendoffice
    If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
Dim xSheet As Worksheet
Dim planilhasVisiveis As Variant

Dim plan As Variant 'ExcelFlex: inclusão de um array com as planilhas que você quer que apareça no combo
  planilhasVisiveis = Array("ABA1", "ABA2", "ABA3", "ABA4")

On Error Resume Next
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
    ComboBox1.Clear
    For Each xSheet In ThisWorkbook.Sheets
      For Each plan In planilhasVisiveis
        If plan = xSheet.Name Then 'ExcelFlex: verifica se a planilha existe no combo e adiciona
          ComboBox1.AddItem xSheet.Name
        End If
      Next plan
    Next xSheet
  End If
  Application.EnableEvents = True
  Application.ScreenUpdating = True
End Sub

Private Sub ComboBox1_GotFocus()
    If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub

Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub

Private Sub Label1_Click()

End Sub

Private Sub ToggleButton1_Click()
    Dim strNome As String
    Dim Caminho As String
    
    'Chamada da caixa de entrada de dados
    strNome = InputBox("Insira o Nome ou Número do Relatório", "Gerador de Relatório em .pdf")
    'Caminho onde será salvo o documento e a concatenação das demais referencias
    Caminho = ActiveWorkbook.Path & "" & "" & strNome & ".pdf"
    
    'Modo como o arquivo será expostado, formatações do arquivo pdf
     Sheets(ToggleButton1.Caption).ExportAsFixedFormat Type:=xlTypePDF, _
     Filename:=Caminho, _
     Quality:=xlQualityStandard, _
     IncludeDocProperties:=True, _
     IgnorePrintAreas:=True, _
     OpenAfterPublish:=False
End Sub

Private Sub ToggleButton2_Click()
    Dim strNome As String
    Dim Caminho As String
    
    'Chamada da caixa de entrada de dados
    strNome = InputBox("Insira o Nome ou Número do Relatório", "Gerador de Relatório em .pdf")
    'Caminho onde será salvo o documento e a concatenação das demais referencias
    Caminho = ActiveWorkbook.Path & "" & "" & strNome & ".pdf"
    
    'Modo como o arquivo será expostado, formatações do arquivo pdf
     Sheets(ToggleButton2.Caption).Range("B4:X25").ExportAsFixedFormat Type:=xlTypePDF, _
     Filename:=Caminho, _
     Quality:=xlQualityStandard, _
     IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, _
     OpenAfterPublish:=False
End Sub

Private Sub ToggleButton3_Click()
    Dim strNome As String
    Dim Caminho As String
    
    'Chamada da caixa de entrada de dados
    strNome = InputBox("Insira o Nome ou Número do Relatório", "Gerador de Relatório em .pdf")
    'Caminho onde será salvo o documento e a concatenação das demais referencias
    Caminho = ActiveWorkbook.Path & "" & "" & strNome & ".pdf"
    
    'Modo como o arquivo será expostado, formatações do arquivo pdf
     Sheets(ToggleButton3.Caption).Range("B2:X23").ExportAsFixedFormat Type:=xlTypePDF, _
     Filename:=Caminho, _
     Quality:=xlQualityStandard, _
     IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, _
     OpenAfterPublish:=False
End Sub

Private Sub ToggleButton4_Click()
    Dim strNome As String
    Dim Caminho As String
    
    'Chamada da caixa de entrada de dados
    strNome = InputBox("Insira o Nome ou Número do Relatório", "Gerador de Relatório em .pdf")
    'Caminho onde será salvo o documento e a concatenação das demais referencias
    Caminho = ActiveWorkbook.Path & "" & "" & strNome & ".pdf"
    
    'Modo como o arquivo será expostado, formatações do arquivo pdf
     Sheets(ToggleButton4.Caption).Range("A1:W22").ExportAsFixedFormat Type:=xlTypePDF, _
     Filename:=Caminho, _
     Quality:=xlQualityStandard, _
     IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, _
     OpenAfterPublish:=False
End Sub

xlarruda,

Não está dando para visualizar o arquivo corrigido que você postou.
Onde está?

xlarruda"

Agora sim... Código funcionando direitinho.
Parabéns xlarruda, Você sempre contribuindo e nos ajudando no Fórum.
Mais uma vez, muito obrigado!