Please help ... this is driving me nuts as I'm sure it is very simple

After running the following code, I would like the activecell to be the
cell where it first started before the code fired. At the moment, after
running the code I end up in the last cell in range
"modCashOutInputs".

Thanks in advance
Peter


Public Sub Worksheet_Change(ByVal Target As Range)

Dim CellCheckValidation As Range
Dim CurrentRow As Integer
Dim CurrentColumn As Integer

CurrentRow = Target.Row
CurrentColumn = Target.Column

'check to see if any of the Cash Outflow inputs has changed and if so
update the calculations

If Not Intersect(Target, Range("modCashOutInputs")) Is Nothing Then

Set CellCheckValidation = Cells(CurrentRow, 4)

If Not Intersect(CellCheckValidation, Cells.SpecialCells
xlCellTypeAllValidation)) Is Nothing Then

Range("modCurrentRowNumber").Value = CurrentRow
procUpdateCashFlowFormulaActiveRow
End If

End If

Application.ScreenUpdating = True

End Sub


--
PeterW
------------------------------------------------------------------------
PeterW's Profile: http://www.excelforum.com/member.php...fo&userid=6496
View this thread: http://www.excelforum.com/showthread...hreadid=571632