VBA code in excel for 200 sheets [Solved/Closed]

Report
-
 Issa -
Dear all who can help me.

I have salary excel file. This file includes 200 sheets which are for each employee.
I have the following VBA code.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$9" Then Exit Sub
If Target = "seconded" Then
Range("a12").EntireRow.Hidden = True
Range("a14").EntireRow.Hidden = True
Else
Range("a12").EntireRow.Hidden = False
Range("a14").EntireRow.Hidden = False
End If
End Sub

I need to put/write this code once only to work for all 200 sheets otherwise I have to copy and paste it in each of 200 sheets.

Thank you in advance for any kind assistant.

Best regards,

2 replies

Posts
2691
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
January 14, 2021
454
Hi Issa,

It seems to me that you don't want to apply the code to a single sheet but to the entire workbook.
Therefore double-click on ThisWorkbook below the sheets in VB and paste your code like:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address <> "$C$9" Then Exit Sub
If Target = "seconded" Then
Range("a12").EntireRow.Hidden = True
Range("a14").EntireRow.Hidden = True
Else
Range("a12").EntireRow.Hidden = False
Range("a14").EntireRow.Hidden = False
End If

End Sub

Best regards,
Trowa
Dear Trowa ,

Thank a lot to all your assistant and appreciated a lot your prompt reply as well.

Best rgards,
Issa

Subscribe To Our Newsletter!

The Best of CCM in Your Inbox

Subscribe To Our Newsletter!