کند شدن پردازش با دستور: Worksheet_SelectionChange

[Ali Parsaei]

با عرض سلام و تشکر از زحمات دوستان،
من کدي در يک شيت نوشته ام که يک کامند بوتن فقط در هنگام انتخاب ده يازده سل خاص نمايان شود و در غير اين صورت مخفي گردد.
با توجه به اينکه کد تحت عنوان Worksheet_SelectionChange نوشته شده برداشت من اين است که با هر بار جابجايي بين خانه ها در شيت مربوطه اين کد جهت بررسي درست يا غلط بودن خود يک بار اجرا مي گردد.
مي خواستم بدانم در صورتي که برداشت من صحيح است، آيا مي توان کد را به گونه اي نوشت که از اين حجم محاسبات و اشغال حافظه کاست؟
اين هم کد:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If ActiveCell.Row = 3 And ActiveCell.Column > 16 And ActiveCell.Column < 30 Then
    CommandButton1.Visible = True
    Else
    CommandButton1.Visible = False
    End If
End Sub 

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.