How do I get a macro to...

dk · Mar 6th, 2002, 05:37 AM

You could put it in a loop like this:-

Code:

Sub DoItToAllSheets()
Dim sht As Worksheet

For Each sht In ThisWorkbook.Worksheets
    'Do something to the sheet
    sht.Cells.Columns.AutoFit
Next

End Sub

You don't say whether you're activating things (e.g. Range("A1").Select) or not so this code may not be appropriate. It's normally helpful if you post some or all of your code.

HTH,

D

Audiojoe · Mar 6th, 2002, 07:12 AM

Sorry, I just wanted a macro that would run all the macro formulas in a workbook. They all format the info that's been pasted in each one to a presentable level

It's OK though, I got it

Thanks for your suggestion though

Mar 6th, 2002, 05:37 AM	#1
dk MrExcel MVP Join Date: Feb 2002 Location: Sydney, Australia Posts: 2,908	You could put it in a loop like this:- Code: Sub DoItToAllSheets() Dim sht As Worksheet For Each sht In ThisWorkbook.Worksheets 'Do something to the sheet sht.Cells.Columns.AutoFit Next End Sub You don't say whether you're activating things (e.g. Range("A1").Select) or not so this code may not be appropriate. It's normally helpful if you post some or all of your code. HTH, D

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 6th, 2002, 07:12 AM	#2
Audiojoe Board Regular Join Date: Feb 2002 Location: Where the wild roses grow Posts: 285	Sorry, I just wanted a macro that would run all the macro formulas in a workbook. They all format the info that's been pasted in each one to a presentable level It's OK though, I got it Thanks for your suggestion though