Type Mismatch Runtime Error

Are you sure you need this line?

Visio.Application.Windows("Document.vsd").Activate

If Visio has a document open it's already the active Visio document.

Try commenting out that line.