Hi Tom

Yes this way COM have a good solution

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Tom Ogilvy" wrote in message ...
So use the SheetsChange Event to handle that or do it all in the
SheetsChange event.

Private Sub Workbook_SheetChange( _
ByVal Sh As Object, ByVal Target As Range)
If ActiveWindow.SelectedSheets.Count 1 Then
Application.EnableEvents = False
vVal = Target.Value
Application.Undo
ActiveSheet.Select
Target.Value = vVal
Application.EnableEvents = True

End If

End Sub

--
Regards,
Tom Ogilvy

"Ron de Bruin" wrote in message
...
Hi Tom

I was thinking the same as you but this will not work correct.
If you select for example two sheets and type something in the Activecell
the cell in the two sheets will be populate with this value before the
activesheet will be select

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Tom Ogilvy" wrote in message
...
I don't think you can prevent it, but you can force the sheets to be
ungrouped by checking on every selection change

Private Sub Workbook_SheetSelectionChange( _
ByVal Sh As Object, ByVal Target As Range)
If ActiveWindow.SelectedSheets.Count 1 Then
ActiveSheet.Select
End If
End Sub


As with any macro solution, disabling macros disables the protection.

--
Regards,
Tom Ogilvy


"COM" wrote in message
...
An interesting idea, though it would then require more extensive
programming to make each desired tab available/visible for editing.

Certainly a fix, but not a good one in this scenario. Thank you
though.

Still looking to disable the selection of multiple worksheets within a
workbook. Want to have all sheets available to be selected, but only
allowing selection of a single worksheet at any/all times.