Problema tra CommandButton e Sub

Question

Non so proprio se è questo il Forum pertanto mi scuso se ho sbagliato.

Stamattina mi ritrovo con questo problema:

Ho  creato una Routine che mi permette di dividere dei codici presenti in un elenco. Quando lancio questa Routine che ho denominato Sub a () tutto funziona PERFETTAMENTE. Volevo stamattina far iniziare il processo con Pulsante inserito in un Form ma non c'è stato verso.

Quando clicco sul Pulsante compare una finestra debug con scritto: fpath Variabile non definita.

Domanda, ma perchè quando lancio la routine Sub a() funziona tutto perfettamente mentre se inserisco il pulsante va in debug?

Nel codice sottoriportato ho scritto una Rourine dentro un'altra (non è un mio errore) ma solo per evidenziare che se elimino Sub a() e la corrispettiva End Sub va in debug.

Grazie

Private Sub cmdIniziaProcesso_Click() 

Sub a()

fpath = ThisWorkbook.Path

fname = fpath & "\*ELENC.xlsx"

If Dir(fname) <> "" Then Kill fname

With Sheets("933AREA")

  LR = .Cells(.Rows.Count, "A").End(xlUp).Row

  Set head = .Range("A1:V1")

  .Range("A2:V" & LR).Sort key1:=.Range("E2"), order1:=xlAscending, Header:=xlNo, DataOption1:=xlSortTextAsNumbers

  r1 = 2

  Application.ScreenUpdating = False

  For j = 3 To LR + 1

    If .Range("E" & j) = .Range("E" & j - 1) Then

      r2 = j

    Else

      r2 = j - 1

      head.Copy Sheets("copia").Range("A1")

      .Range("A" & r1 & ":v" & r2).Copy Sheets("copia").Range("A2")

      cod = Sheets("copia").Range("E2")

      fname = fpath & "" & cod & " ELENC.xlsx"

      r1 = j

      Sheets("copia").Copy

      ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

      ActiveWorkbook.Close True

      Sheets("copia").Range("A1:V" & r2).ClearContents

    End If

  Next

End With

Application.ScreenUpdating = True

End Sub

End Sub