Worksheet_Calculate
or try it this way:
Private Sub Worksheet_Calculate()
Dim varData As Variant
Dim i As Long
varData = Range("B8:F37")
For i = LBound(varData) To UBound(varData)
If varData(i, 1) = "Cash" Then
Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp)(2) _
.Resize(1, UBound(varData, 2)).Value =
Application.Index(varData, i, 0)
ElseIf varData(i, 1) = "Equity" Then
Sheets("Sheet3").Cells(Rows.Count, 1).End(xlUp)(2) _
.Resize(1, UBound(varData, 2)).Value =
Application.Index(varData, i, 0)
End If
Next
End Sub
Workbook_Calculate doesn't work with target.
Regards
Claus B.
--
Thanks Claus, I'll give that a go.
Howard
|