Calling active VBA script from another workbook

Question

I can run this VBA script from the current workbook, but I want to run from another new workbook and get the result on it.

Sub ListAllSheets()

Dim ws As Work