VBA Code looping problem

[MarkBeck]

Hi

This is a simple piece of code


Private Sub Worksheet_Deactivate()
Sheets("TB").Select
Range.("R1").Select
Selection.ClearContents
Sheets("BS").Select
End Sub

Why does it keep running non-stop?

 

[PHV]

Play with the Application.EnableEvents property :
Private Sub Worksheet_Deactivate()
Application.EnableEvents = False
' do your stuff here
Application.EnableEvents = True
End Sub

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[SkipVought]

Hi,

Try to AVOID, Activate and Select

Private Sub Worksheet_Deactivate()
    Sheets("TB").Range.("R1").ClearContents
End Sub

Skip,

_[red][/red]

 

[MarkBeck]

I now get a "Syntax error

 

[PHV]

Sheets("TB").Range("R1").ClearContents

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[MarkBeck]

Thanks PHV! That Period was the black sheep.

 

[fumei]

Those darn dots.

Gerry
My paintings and sculpture

 

[SkipVought]

Dot got me!

Skip,

_[red][/red]