¿Cómo ejecutar una macro desde un botón en otra hoja?

tengo el siguiente código que es para generar una lista de archivos:

Dim iRow
Sub ListFiles()
iRow = 11
Rows(iRow &
":" & "65536").Clear
Call
ListMyFiles(Range("C7"), Range("C8"))
End Sub
Sub ListMyFiles(mySourcePath, IncludeSubfolders)
Set MyObject = New
Scripting.FileSystemObject
Set mySource =
MyObject.GetFolder(mySourcePath)
On Error Resume Next
For Each myFile In
mySource.Files
iCol = 2
Cells(iRow,
iCol).Value = myFile.path
iCol = iCol +
1
Cells(iRow,
iCol).Value = myFile.Name
iCol = iCol +
1
iRow = iRow +
1
Next
If
IncludeSubfolders Then
For Each
mySubFolder In mySource.SubFolders
Call
ListMyFiles(mySubFolder.path, True)
Next
End If
End Sub
Sub ASAS()
End Sub

Como puedo ejecutar la macro desde la hoja uno y que los resultados aparezcan en la hoja 2?