| Home |
| Search |
| Today's Posts |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loop in sheets
thxs all for ur help
Chip Pearson wrote: You still need to Select the sheet. For Each MySheet In Worksheets MySheet.Select Cells.Select Selection.Replace What:="=", Replacement:="=" Application.MaxChange = 0.001 ActiveWorkbook.PrecisionAsDisplayed = False Calculate Next -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "access" wrote in message ... This should do the trick. Sub RefreshCalculate() Dim MySheet as Worksheet For Each MySheet In Worksheets Cells.Select Selection.Replace What:="=", Replacement:="=" Application.MaxChange = 0.001 ActiveWorkbook.PrecisionAsDisplayed = False Calculate Next End Sub Regards, Martijn "al007" schreef in bericht oups.com... Sub RefreshCalculate() Cells.Select Selection.Replace What:="=", Replacement:="=" Application.MaxChange = 0.001 ActiveWorkbook.PrecisionAsDisplayed = False Calculate End Sub What additional code (&where) do I need to add to make above macro run on all sheets in workbook i.e loop in all sheets Thxs |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Loop all Sheets not working. | New Users to Excel | |||
| Loop through all sheets in workbook | Excel Programming | |||
| Loop through sheets | Excel Programming | |||
| excel VBA - for loop for several sheets | Excel Programming | |||
| Loop across Sheets and number of sheets | Excel Programming | |||
Threaded Mode
