Formulaire activant macro d'exportation xls --> txt

Bonjour à tous j'ai un petit problème :

J'ai créé une macro excel (en récupérant des bouts de code sur le net) qui me permet d'exporter le contenu d'un classeur xls dans un fichier txt. Cette macro fonctionne !!! (En faisant Affichage/Macro/Sélection de la macro puis exécuter)

Par contre j'ai voulu rendre encore plus commode son exécution en créant un formulaire dans lequel un clic sur un bouton déclenche la macro. ça a l'air de marcher.

Je souhaite que ce formulaire s'affiche automatiquement à l'ouverture du fichier excel (xlsm plus précisément) et c'est là que ça coince ! Pour réaliser cette dernière étape, j'ai collé ce code :

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Dans le ThisWorkbook. Et là il a pas l'air d'aprécier cas il me fait un :

Erreur d'exécution '424':
Objet requis

Je ne sais pas du tout quoi faire !

Voici le code de la macro :

Sub ExporterXlsEnTxt()
'
' ExporterXlsEnTxt Macro
Range("A1").CurrentRegion.Activate
Dim FileName As String
Dim Data
Dim r As Long, c As Integer
Dim NumRows As Long, NumCols As Integer
Dim ExpRng As Range
Set ExpRng = Application.Selection
NumRows = ExpRng.Rows.Count
NumCols = ExpRng.Columns.Count


FileName = "U:\Perso\FichiersTxt\FichierAcreer.txt"
Open FileName For Output As #1
For r = 1 To NumRows
For c = 1 To NumCols
Data = ExpRng.Cells(r, c).Value
If IsNumeric(Data) Then Data = Val(Data)
If IsEmpty(ExpRng.Cells(r, c)) Then Data = ""
If c <> NumCols Then
Write #1, Data
Else
Write #1, Data


End If
Next c
Next r
Close #1
End Sub

Je travaille sur une version d'xls de Microsoft Office Professional Plus 2010

Quelqu'un peut m'aider ? ça serait cool merci...