1

Topic: Cleaning of a range and the selected cells on several sheets

Hello, in a file cleaning is produced on sheet, a question: whether probably to produce cleaning at once on several sheets of the book? If the answer not difficult, please with an example (the sheet address etc.).

2

Re: Cleaning of a range and the selected cells on several sheets

It is occupied;
On an example of one condition (it would be necessary to issue in the form of the subroutine, yes there is no time)

Private Sub Worksheet_Change (ByVal Target As Range)
Dim r As Range
If Not Intersect (Target, Range ("C1")) Is Nothing Then
Set r = Selection
Application. EnableEvents = False
Worksheets. Select
Range ("C2, D10").Select
Selection. ClearContents
r. Select
Me. Select
End If
If Not Intersect (Target, Range ("D1")) Is Nothing Then ' 
Application. EnableEvents = False
Range ("C3, D9").ClearContents
End If
Application. EnableEvents = True
End Sub

3

Re: Cleaning of a range and the selected cells on several sheets

Kazan, forgive magnanimously that that I noted that it is a lot of time at you I take away. From above -  did not understand, where and how to register the address of sheets in which it is necessary to clear on 3-5 specified cells. For cleaning a single sheet? Also what will answer for it there? At once I will make a reservation, how fire I am afraid of difficult things from for fear of a time delay of an output. I already normally got, when like all is normal, and then it appears, an ex-fur-tree "" already history with a time delay to steam of minutes. The card  can time "" helps? I so that quick-witted.