VBA code working on wrong worksheet

[fvisions]

This is working, sort of, it is doing what I want to the second tab in the workbook (CWS) BUT it is also doing the same steps to the first tab sheet 1(Columns) where my end user buttons are placed for my co-workers to use. How do I update this code to only work on the CWS tab?

Sub Hide_Cells()

'Dim ws As Worksheet
Worksheets("CWS").Activate

Range("B1").Select
ActiveCell.FormulaR1C1 = "."
Range("D1").Select
ActiveCell.FormulaR1C1 = "."
Range("H1").Select
ActiveCell.FormulaR1C1 = "Current Equipment"
Range("Q1").Select
ActiveCell.FormulaR1C1 = "."
Range("A1").Select

Columns("B:AC").Select
Selection.Locked = True
Selection.FormulaHidden = False
Columns("AD:AK").Select
Selection.Locked = False
Selection.FormulaHidden = False

For Each ws In ActiveWorkbook.Worksheets
ws.Range("B:f,H:j, L:O, Q:T").EntireColumn.Hidden = True
Next ws
ActiveSheet.Protect Password:="12121212"

End Sub

 

[Fluff]

How about

Sub Hide_Cells()

'Dim ws As Worksheet
With Worksheets("CWS")
   .Range("B1").Value = "."
   .Range("D1").Value = "."
   .Range("H1").Value = "Current Equipment"
   .Range("Q1").Value = "."
   .Range("A1").Select
   
   With .Columns("B:AC")
      .Locked = True
      .FormulaHidden = False
   End With
   With .Columns("AD:AK")
      .Locked = False
      .FormulaHidden = False
   End With
   .Protect Password:="12121212"
End With
For Each ws In ActiveWorkbook.Worksheets
ws.Range("B:f,H:j, L:O, Q:T").EntireColumn.Hidden = True
Next ws

End Sub

 

[fvisions]

Code still works on both tab instead of just the Worksheet("CWS"). This may be on me, I am not good at DIM - do I need it for this?

 

[Fluff]

Are you saying that the row 1 values are changing on sheets other than the CWS sheet?

 

[fvisions]

Yes, everything in the code is working twice, once in the CWS worksheet and the other in the worksheet Sheet 1. Sheet 1 is where the button with the assigned marco is located with a form control button and instructions for the end user. I have a second button for the end user to unlock the CWS worksheet as well.

 

[jolivanes]

Re: "Code still works on both tab"
Do you mean the hiding of the Columns?

 

[fvisions]

Re: "Code still works on both tab"
Do you mean the hiding of the Columns?

yes hides columns in both worksheets, I only want it to work on the CWS worksheet

 

[jolivanes]

With this part you tell it to work on all sheets in your workbook. Just delete these lines

For Each ws In ActiveWorkbook.Worksheets
ws.Range("B:F,H:J, L:O, Q:T").EntireColumn.Hidden = True
Next ws

And use this instead.

Worksheets("CWS").Range("B:f,H:j, L:O, Q:T").EntireColumn.Hidden = True

 

[fvisions]

With this part you tell it to work on all sheets in your workbook. Just delete these lines

For Each ws In ActiveWorkbook.Worksheets
ws.Range("B:F,H:J, L:O, Q:T").EntireColumn.Hidden = True
Next ws

And use this instead.

Worksheets("CWS").Range("B:f,H:j, L:O, Q:T").EntireColumn.Hidden = True

That works. Thank you so much for helping me.

 

[jolivanes]

Glad you have it working and thanks for letting us know.
Good luck and stay safe