activeworkbook.worksheets

Hello, I'm trying to create a macro to protect all sheets at the same time. Below is what I have been trying, but its not working. ANy ideas? Sub protectsheets() Dim wSheet As Worksheet For Each wSheet In ActiveWorkbook.Worksheets wSheet.Protect Password:="margin" Next wSheet End Sub Sub...

For Each ws In ActiveWorkbook.Worksheets ws.Select entire.Columns.AutoFit entire.Rows.AutoFit Columns("G:G").EntireColumn.Delete Columns("E:E").EntireColumn.Delete Next ws

Hi, Would anyone be able to tell me why this code doesn’t loopto the next worksheet and only performs the task on the activesheet? I realise my code is poor but this is just a tester for afew additional tasks to be performed within the loop – but at this stage I can’teven get the loop to work...

Hello All, Thanks for your help in advance. I created this macro below which hides/unhides the entire row if value is zero. Everything works fine until the spreadsheet is asked to hide too many rows and then crashes. Is there a work-around here? I am at a loss... Sub...

Hello, I have this code and I would like it to stop at the last row of the data in each sheet. Option Explicit Sub LoopThroughSheets() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ActiveSheet.[d1:d33] = ActiveSheet.Name...