Boas,

Eu tenho um userform com botões "Pré-visualizar", "Exportar .xls", e "Sair".

Tenho uma macro para pré-visualizar as folhas escolhidas que é a seguinte:

Private Sub CommandButton1_Click()

  Dim Ctl As Control, sArray()
    ReDim sArray(0)
    For Each Ctl In Me.Controls
        If TypeOf Ctl Is MSForms.CheckBox Then
            If Ctl Then
                sArray(UBound(sArray)) = Ctl.Tag
                ReDim Preserve sArray(UBound(sArray) + 1)
            End If
        End If
    Next
    If UBound(sArray) = 0 Then MsgBox ("Nenhum item selecionado"): Exit Sub
    ReDim Preserve sArray(UBound(sArray) - 1)
    Sheets(sArray).Select
    Unload Me
     Application.Dialogs(xlDialogPrintPreview).Show
    Sheets("Menu").Select

Gostaria de criar uma macro semelhante para exportar as abas selecionadas para um novo ficheiro, mas sem formulas, apenas valores.

Tem como ajudar? Obrigado.