Change VBA so it only operates on named sheet

[APML]

Hi all, so I'm not very good at VBA. I have the following code and need to modify it so it only operates on the worksheet called "Trades" and not on ActiveSheet
Was hoping someone was able to point me in the right direction


Private Sub Worksheet_Calculate()

Dim ws As Worksheet: Set ws = ThisWorkbook.ActiveSheet
Dim kcell As Range: Set kcell = ws.Range("Z1")

If kcell.Value = "1" Then
ws.Range("H:L").EntireColumn.Hidden = True
ElseIf kcell.Value = "2" Then
ws.Range("H:L").EntireColumn.Hidden = False
End If

End Sub

 

[ouvay]

Here you go

Private Sub Worksheet_Calculate()

Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("Trades")
Dim kcell As Range: Set kcell = ws.Range("Z1")

If kcell.Value = "1" Then
ws.Range("H:L").EntireColumn.Hidden = True
ElseIf kcell.Value = "2" Then
ws.Range("H:L").EntireColumn.Hidden = False
End If

End Sub

 

[APML]

Here you go

Private Sub Worksheet_Calculate()

Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("Trades")
Dim kcell As Range: Set kcell = ws.Range("Z1")

If kcell.Value = "1" Then
ws.Range("H:L").EntireColumn.Hidden = True
ElseIf kcell.Value = "2" Then
ws.Range("H:L").EntireColumn.Hidden = False
End If

End Sub

Thx so much, works perfectly

 

[ouvay]

Thx so much, works perfectly

Thanks for the response!

Care to mark it solved?