You are a star!!
Thank you so much for being so patient and for all your help.
I'm very grateful.
Kind regards
Min


"papou" wrote:

Min
As regards Chekboxes you can't use code from Thisworkbook (I think you could
use a class module).

Where does the second part of you code belong to?
I mean the part starting with:
"If Not Intersect(Target, Range("R2:R36")) Is Nothing Then"

If you are firing the change event from the sheet use:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

If you are firing the selection change use:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)

End Sub

The workbook event are available if you double-click on Thisworkbook object
in the Project window.

HTH
Cordially
Pascal


"Min" a écrit dans le message de news:
...
This is some of the code.
I'm sorry but I really am an amateur so any help is greatly appreciated!
Many thanks


Private Sub CheckBox1_Click()
If CheckBox1 = False Then
Columns("K:U").Select
Selection.EntireColumn.Hidden = True
Range("A2").Select
OptionButton1 = False 'Show all
ActiveWindow.ScrollColumn = 1

Else
Columns("K:U").Select
Selection.EntireColumn.Hidden = False
ActiveWindow.ScrollColumn = 11
Range("K2").Select
End If

End Sub

If Not Intersect(Target, Range("R2:R36")) Is Nothing Then
Select Case Target
Case "2a" To "5c"
icolor = 33
Case "1c"
icolor = 45
Case "1b"
icolor = 4
Case "1a"
icolor = 33
Case "w"
icolor = 3
Case Else
End Select
Target.Interior.ColorIndex = icolor
End If



"papou" wrote:

Hello
Show at least a portion of the code you have on one sheet.

Cordially
Pascal

"Min" a écrit dans le message de news:
...
Do i place the code in 'This workbook'? How do I get each sheet to
refer
to it?
Apologies, I'm obviously an amateur!

"papou" wrote:

Hello
If you are calling sheet events, consider using at workbook level in
Thisworkbook.

HTH
Cordially
Pascal

"Min" a écrit dans le message de news:
...
I have a workbook with 18 sheets in it, and each sheet has exactly
the
same
vb code. When I need to change something I'm having to change it on
each
sheet. Is there somewhere that I can put just one lot of code and
all
the
sheets will work from it?