Looking to see better variation for running these macros.
If you can help that would be great!
1-
Sub Calculation()
shtEarnings.Select
Range("H3").Select
ActiveCell.FormulaR1C1 = "=RC[7]/RC[9]-1"
Selection.AutoFill Destination:=Range("H3:H52")
End Sub
2-
Sub Max ()
shtEarnings.Select
Range("E1").Select
ActiveCell.FormulaR1C1 = "=MAX(<wbr>MostRecentQuarterFinancials)"
Range("E1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
If you can help that would be great!
1-
Sub Calculation()
shtEarnings.Select
Range("H3").Select
ActiveCell.FormulaR1C1 = "=RC[7]/RC[9]-1"
Selection.AutoFill Destination:=Range("H3:H52")
End Sub
2-
Sub Max ()
shtEarnings.Select
Range("E1").Select
ActiveCell.FormulaR1C1 = "=MAX(<wbr>MostRecentQuarterFinancials)"
Range("E1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub