+ Reply to Thread
Results 1 to 3 of 3

How to tell if a workbook is open

  1. #1
    Registered User
    Join Date
    08-10-2007
    Posts
    13

    How to tell if a workbook is open

    I have created a subroutine that moves a sheet from one workbook to another, but sometimes the destination book is open and sometimes it isn't. I don't want to always run a line to open the destination workbook as it causes an error if it's already open. Is there a way I can test to see if the workbook is open?

    Thanks.

  2. #2
    Forum Contributor VBA Noob's Avatar
    Join Date
    04-25-2006
    Location
    London, England
    MS-Off Ver
    xl03 & xl 07(Jan 09)
    Posts
    11,988
    Links should help

    http://www.ozgrid.com/VBA/IsWorkbookOpen.htm

    http://www.exceltip.com/st/Determine...Excel/472.html

    VBA Noob
    _________________________________________


    Credo Elvem ipsum etian vivere
    _________________________________________
    A message for cross posters

    Please remember to wrap code.

    Forum Rules

    Please add to your signature if you found this link helpful. Excel links !!!

  3. #3
    Forum Expert royUK's Avatar
    Join Date
    11-18-2003
    Location
    Derbyshire,UK
    MS-Off Ver
    Xp; 2007; 2010
    Posts
    26,200
    Here's a Function to do it. Place this code in a Standard Module

    Please Login or Register  to view this content.
    Use it like this, cahnge YourWorkbook to the name of your workbook

    Please Login or Register  to view this content.
    Hope that helps.

    RoyUK
    --------
    For Excel Tips & Solutions, free examples and tutorials why not check out my web site

    Free DataBaseForm example

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1