lock - Hide - and Font color change macro

[rmb_77]

Goodafternoon to all

i humbly request help on the folling problem i have with a macro i am trying to get to work.

the macro is linked to a check box and is meant to do the following:

when checked:
1.lock a range of cells on the active sheet ("this works for me")
2.change the font color for a certain range on the active sheet ("works too).
3.Select another sheet and hide a row on that sheet , then return to the active sheet ("this i cant get to work..((

When unchecked:
1.Unlock a range of cells on the active sheet ("this works for me")
2.change the font color back which also works
3.select the other sheet and unhide the row again , after this return to the active sheet (im stuck here)

is it possible to ad 3 different actions to a checkbox??

this is my code so far"

Private Sub CheckBox1_Click()
Sheet30.Unprotect Password:="xxxx"
Range("A11:K11").Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Dim StartCell As Range
Set StartCell = ActiveCell
Range("H11").Select
If CheckBox1.Value = True Then
Selection.Locked = True
Else
Selection.Locked = False
Range("A11:K11").Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
End If
StartCell.Activate
Set StartCell = Nothing
Sheet30.Protect Password:="xxxx"
End Sub


i really hope someone can help me with this issue...

many thanks in advance!!

Mike

 

[AlphaFrog]

As an example, this will hide row 5 on Sheet3

Sheets("Sheet3").Rows(5).Hidden = True

Use the same code but set it to False to unhide it.

You don't need to "Select" a sheet or range of cells to do something to them. This will Hide\Unhide that row without leaving your current sheet.

 

[rmb_77]

Hey AlphaFrog

that looks like the best option yes indeed

however when i insert it in my code i get the following error..

Run-time error '9':
Subscript out of range

could it be in the wrong section of the code??

anything you can help with ??

many thanks in advance..

 

[rmb_77]

Hey Alpha Frog

it works like a charm , my bad!!

thank you very much for your help!!

greetz

Mike

 

[AlphaFrog]

Did you change the name of the sheet? If yes, then is it exactly the same name of the actual sheet?