Whenever I execute this code, it takes me to the last sheet

[SamsonL]

Hello,

I have a question of why this process always takes me to the last sheet or to the activated sheet. I have a button for the user to click and select components on the "VFD Cab" Sheet, when it is done, the values will show up on the designated cells, but it takes the user away from the "VFD Cab" sheet and takes me to the "Indexes" sheet. I essentially paste heat loss values into the "Indexes" sheet and a summation of those values are then carried forward to the "VFD Cab" Sheet where the user should get the total heat loss values and stays on the "VFD Cab" sheet.

TIA


If CheckBox1.Value = True Then
Sheets("Heat Tables").Activate
Range("N59").Select
Selection.Copy
Sheets("Indexes").Activate
Range("s17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


End If

 

[Fluff]

It's because you are activating the sheets, try

If CheckBox1.Value = True Then
Sheets("Heat Tables").Range("N59").Copy
Sheets("Indexes").Range("s17").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   :=False, Transpose:=False

 

[shg]

  If CheckBox1.Value Then Worksheets("Indexes").Range("S17").Value2 = Worksheets("Heat Tables").Range("N59").Value2

 

[SamsonL]

Ahh I see thanks so much!

 

[Fluff]

Glad we could help & thanks for the feedback