Hi Mike

Works perfectly!

Thank You

"Mike" wrote in message
...
Dim ws As Worksheet
Dim wsCount As Long
wsCount = 0
For Each ws In Worksheets

If ws.Visible = xlSheetVisible Then
wsCount = wsCount + 1
End If
Next

If wsCount = 1 Then
If Worksheets("Sheet2").Visible = True Then
MsgBox "One sheet visible and the were looking for"
Else
MsgBox "One sheet visible but not the were looking for"
End If
Else
MsgBox "More then one sheet visable"
End If

"Sandy" wrote:

Hi
I have a situation whereby if sheet "LogGraph3" is the only sheet visible
then I do not require the Workbook_BeforeClose to run, how do I
incorporate
that into the following.

******Sub Starts******
Sub Workbook_BeforeClose(Cancel As Boolean)

If Sheets("LogGraph3") 'is the only visible sheet' Then
GoTo EarlyEnd

Else
Do closing code
End If

EarlyEnd:
Some Code

End Sub
******Sub Ends*******

Thanks
Sandy