Option button macro code for two worksheets

[ExcelNovice]

I'm using the following code to change the column width on two worksheets (Vehicles and CarsOnly), but while it's working on the Vehicles sheet, I'm getting an error on the CarsOnly sheet and I'm not sure what changes to make to the code. Everything in blue works as it should, but I'm getting error after that, and nothing in red works. Help please. Thanks.

Private Sub OptionButton1_Click()
ActiveSheet.Unprotect Password:="password1"
Range("OK63") = "200"
Range("ki42") = "200"
Sheets("CarsOnly").Range("ki42") = "200"

Range("bt42").Select
Columns("BR:EO").ColumnWidth = 0


Sheets("CarsOnly").Select
Columns("BR:EO").Select
Selection.ColumnWidth = 0
Range("BK45").Select
Sheets("Vehicles").Select



Range("BK45").Select


ActiveSheet.Protect Password:="password1"
End Sub

 

[Fluff]

Are both sheets protected?
If so you are only unprotecting one of them

 

[ExcelNovice]

Fluff, both sheets are protected, but with the same password so the unprotect/protect code should work on both sheets, and does.

 

[Fluff]

This

[COLOR=#0000ff]ActiveSheet[/COLOR].Unprotect Password:="password1"

only unprotects the Active sheet

 

[ExcelNovice]

Thanks Fluff, you were correct.
See below (red) for the changes I made to fix the issue, and it worked, however instead of changing the width of columns BR:EO to zero on the CarsOnly sheet, it changed the width of all columns up to EP (that is, columns AA:EO) to zero.
I cannot figure out why the width of other columns other than BR:EO were changed to zero - any ideas? Thanks.


Range("OK63") = "200"
Range("ki42") = "200"
Sheets("CarsOnly").Range("ki42") = "200"

Range("bt42").Select
Columns("BR:EO").ColumnWidth = 0

Sheets("CarsOnly").Unprotect Password:="password1"
Sheets("CarsOnly").Select
Columns("BR:EO").Select
Selection.ColumnWidth = 0
Range("BK45").Select
Sheets("Vehicles").Select
Sheets("CarsOnly").Protect Password:="password1"

 

[Fluff]

Do you have any merged cells?

 

[ExcelNovice]

Yes, but not in the range BR:EO

 

[Fluff]

What happens if you try this

Sheets("CarsOnly").Unprotect Password:="password1"
Sheets("CarsOnly").Columns("BR:EO").Hidden = True
Range("BK45").Select
Sheets("Vehicles").Select
Sheets("CarsOnly").Protect Password:="password1"

 

[ExcelNovice]

Works!
Fluff, thank you very much.

 

[Fluff]

Glad to help & thanks for the feedback