Text Boxs

allmad · #1 (**permalink**) 05-02-04, 04:04

Would like some help with this please

Trying to close a work book and if its all ready close I want a text box to come up with "WEEK ONE ALREADY CLOSED" the you click ok and it shuts

The code so far is as follows

----------------------------------------
Private Sub CommandButton7_Click()
Windows("Week One.xls").Activate
ActiveWindow.Close
End Sub
----------------------------------------

Thanks

Mark

DavidCoutts · #2 (**permalink**) 05-03-04, 09:19

Hi Mark
If you change your code to something like this

Code:

    Dim wkbook As Workbook
    
    For Each wkbook In Application.Workbooks
        If wkbook.Name = "Week One.xls" Then
            'If Workbook Week One.xls is open shut it and
            'Leave Routine
            wkbook.Close
            Exit Sub
        End If
    Next wkbook
    'Display Messagebox as workbook not found
    MsgBox "Workbook not Found"

this code looks at all open workbooks and if one of them is called
"Week One.xls" then it closes it and leaves the subroutine
otherwise a messagebox pops up to say that the workbook is not open

HTH

David

allmad · #3 (**permalink**) 05-03-04, 13:46

Thank you David thats just what I was looking for....

Mark

Internet Services

Web Development

Digital Marketing

Consumer Tech