Hi is it possible to automatically run a macro when one has finished ?
example 1st macro would run
Sub FORMULAS_TO_VALUES()
Dim i As Integer
Dim cell As Range
For i = 1 To 91
For Each cell In Worksheets(CStr(i)).Range("F1:F1,aa4:aa75,aM4:bM75").Cells
cell.Value = cell.Value
Next cell
Next i
End Sub
then when finished next macro would run
Sub SHEETS_TO_HOME()
Dim sht As Worksheet, csheet As Worksheet
Application.ScreenUpdating = False
Set csheet = ActiveSheet
For Each sht In ActiveWorkbook.Worksheets
If sht.Visible Then
sht.Activate
Range("CM1").Select
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
End If
Next sht
csheet.Activate
Application.ScreenUpdating = True
MsgBox "complete"
Exit Sub
out:
MsgBox "copy was cancelled"
Application.ScreenUpdating = True
End Sub
once finished next macro would run
Sub AUTO_CALCULATE_SOME_CELLS()
Dim i As Long
For i = 1 To 95
With Sheets(CStr(i)).Select
Range("IC4:ID75").Calculate
Range("JF4:JF75").Calculate
Range("F4:F75").Calculate
Range("Q4").Calculate
Range("Q8").Calculate
Range("Q12").Calculate
Range("Q16").Calculate
Range("Q20").Calculate
Range("Q24").Calculate
Range("Q28").Calculate
Range("Q32").Calculate
Range("Q36").Calculate
Range("Q40").Calculate
Range("Q44").Calculate
Range("Q48").Calculate
Range("Q52").Calculate
Range("Q56").Calculate
Range("Q60").Calculate
Range("Q64").Calculate
Range("Q68").Calculate
Range("Q72").Calculate
End With
Next
End Sub
Bookmarks