The following is meant to hide columns c-e in each worksheet in a
workbook.
Not quite working as it doesnt operate for each and every worksheet

Thanks in advance


Sub hidecols()
Dim sh As Worksheet


For Each sh In ThisWorkbook.Worksheets
Columns("C:E").Hidden = True
Next
End Sub


--
T De Villiers
------------------------------------------------------------------------
T De Villiers's Profile: http://www.excelforum.com/member.php...o&userid=26479
View this thread: http://www.excelforum.com/showthread...hreadid=532226

Hi T De Villiers

It always run the code on the same sheet (activesheet)

Use
Sh.Columns("C:E").Hidden = True


--
Regards Ron de Bruin
http://www.rondebruin.nl


"T De Villiers" wrote in message
news:T.De.Villiers.265hqz_1144844102.3895@excelfor um-nospam.com...

The following is meant to hide columns c-e in each worksheet in a
workbook.
Not quite working as it doesnt operate for each and every worksheet

Thanks in advance


Sub hidecols()
Dim sh As Worksheet


For Each sh In ThisWorkbook.Worksheets
Columns("C:E").Hidden = True
Next
End Sub


--
T De Villiers
------------------------------------------------------------------------
T De Villiers's Profile: http://www.excelforum.com/member.php...o&userid=26479
View this thread: http://www.excelforum.com/showthread...hreadid=532226

This code snipped worked fine on my PC.

Sub HideColumns()

Dim wb As Workbook
Dim ws As Worksheet

Set wb = ActiveWorkbook

For Each ws In wb.Worksheets
Columns("C:E").Hidden = True
Next ws

Set wb = Nothing
Set ws = Nothing
Exit Sub

End Sub
--
Kevin Backmann


"T De Villiers" wrote:


The following is meant to hide columns c-e in each worksheet in a
workbook.
Not quite working as it doesnt operate for each and every worksheet

Thanks in advance


Sub hidecols()
Dim sh As Worksheet


For Each sh In ThisWorkbook.Worksheets
Columns("C:E").Hidden = True
Next
End Sub


--
T De Villiers
------------------------------------------------------------------------
T De Villiers's Profile: http://www.excelforum.com/member.php...o&userid=26479
View this thread: http://www.excelforum.com/showthread...hreadid=532226

just add sh. in front

--
Don Guillett
SalesAid Software

"T De Villiers"
wrote in message
news:T.De.Villiers.265hqz_1144844102.3895@excelfor um-nospam.com...

The following is meant to hide columns c-e in each worksheet in a
workbook.
Not quite working as it doesnt operate for each and every worksheet

Thanks in advance


Sub hidecols()
Dim sh As Worksheet


For Each sh In ThisWorkbook.Worksheets
Columns("C:E").Hidden = True
Next
End Sub


--
T De Villiers
------------------------------------------------------------------------
T De Villiers's Profile:
http://www.excelforum.com/member.php...o&userid=26479
View this thread: http://www.excelforum.com/showthread...hreadid=532226

Sub gsnu()
Dim w As Worksheet
For Each w In Worksheets
w.Activate
Columns("C:E").Select
Selection.EntireColumn.Hidden = True
Next
End Sub

--
Gary''s Student


"T De Villiers" wrote:


The following is meant to hide columns c-e in each worksheet in a
workbook.
Not quite working as it doesnt operate for each and every worksheet

Thanks in advance


Sub hidecols()
Dim sh As Worksheet


For Each sh In ThisWorkbook.Worksheets
Columns("C:E").Hidden = True
Next
End Sub


--
T De Villiers
------------------------------------------------------------------------
T De Villiers's Profile: http://www.excelforum.com/member.php...o&userid=26479
View this thread: http://www.excelforum.com/showthread...hreadid=532226