Thanks for the reply Chip,

That would solve my problem if I had only one column but I have two
columns and after they finish entering the value in the second column I
want it to move to the first cell on the next row (Down one, Left one).


Here is my code:


Private Sub Worksheet_Change(ByVal Target As Range)

Dim pvtTable As PivotTable
Dim intColumn As String

intColumn = Target.Column
If intColumn = 2 Then
ActiveCell.Offset(1, -1).Select
End If

Set pvtTable = Worksheets("Sheet1").Range("D2").PivotTable
pvtTable.RefreshTable

End Sub



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/