Hi,
not very elegent but should do the job, stick it all in the click
event of the check box

x = ActiveSheet.Name

If CheckBox1.Value = True Then

Sheets("DomShip").Activate
Sheets("DomShip").Range("A:D").Select
Selection.EntireColumn.Hidden = True
Sheets("ConShip").Activate
Sheets("ConShip").Range("A:D").Select
Selection.EntireColumn.Hidden = True
Sheets("IntShip").Activate
Sheets("IntShip").Range("A:D").Select
Selection.EntireColumn.Hidden = True
Sheets("FinShip").Activate
Sheets("FinShip").Range("A:D").Select
Selection.EntireColumn.Hidden = True


Else

Sheets("DomShip").Activate
Sheets("DomShip").Range("A:D").Select
Selection.EntireColumn.Hidden = False
Sheets("ConShip").Activate
Sheets("ConShip").Range("A:D").Select
Selection.EntireColumn.Hidden = False
Sheets("IntShip").Activate
Sheets("IntShip").Range("A:D").Select
Selection.EntireColumn.Hidden = False
Sheets("FinShip").Activate
Sheets("FinShip").Range("A:D").Select
Selection.EntireColumn.Hidden = False

End If

Sheets(x).Activate
Sheets(x).Range("F1").Select


good luck
ross