| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loop in sheets
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Loop in sheets
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Loop in sheets
Not quite
Sub RefreshCalculate() Dim sh As Worksheet ActiveWorkbook.PrecisionAsDisplayed = False For Each sh In ActiveWorkbook.Worksheets sh.Cells.Replace What:="=", Replacement:="=" Next sh Application.MaxChange = 0.001 Calculate End Sub -- HTH Bob Phillips (remove nothere from email address if mailing direct) "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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Loop in sheets
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 |
|
#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 |
| Reply |
| 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 | |||
Linear Mode
