I need to use a specifed cell for a formula so that the curser will high
light a specified cell on the next sheet of a work book. I know that I could
easily use the sheet tab and mouse but the sheets are for alot of number
entry's. It would just simplify things for the user to just keep entering the
numbers.

This code will activate sheet2 A1 from sheet1 A1 after a value is
entered and the user moves to the next cell (tabs or presses enter) if
the the value is not blank. You can modify the sheet names and cell
ranges to suit your needs. Let me know if this doesn't work.

You will need to place this code in the appropriate worksheet module.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1"
If Target.Value = "" Then
Else
Sheets("Sheet2").Activate
Sheets("Sheet2").Range("A1").Select
End If
End If

End Sub


--
jwhite100
------------------------------------------------------------------------
jwhite100's Profile: http://www.excelforum.com/member.php...o&userid=27913
View this thread: http://www.excelforum.com/showthread...hreadid=474009

Thank you for responding to my query. I pasted the VBA code, but I could not
get it to work properly as needed. I already have some code on the specified
sheets and they are working as needed. Maybe I need to modify this new code
to the previous code. Here is the code that I have:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$19" Then
Range("D7").Select
End If
If Target.Address = "$D$19" Then
Range("F7").Select
End If
If Target.Address = "$F$19" Then
Range("H7").Select
End If
If Target.Address = "$H$19" Then
Range("J7").Select
End If
If Target.Address = "$J$19" Then
Range("B21").Select
End If
If Target.Address = "$B$33" Then
Range("D21").Select
End If
If Target.Address = "$D$33" Then
Range("F21").Select
End If
If Target.Address = "$F$33" Then
Range("H21").Select
End If
If Target.Address = "$H$33" Then
Range("J21").Select
End If
End Sub

Any More help would be greatly appreciated.
Thanks "Jeff D."



"jwhite100" wrote:


This code will activate sheet2 A1 from sheet1 A1 after a value is
entered and the user moves to the next cell (tabs or presses enter) if
the the value is not blank. You can modify the sheet names and cell
ranges to suit your needs. Let me know if this doesn't work.

You will need to place this code in the appropriate worksheet module.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1"
If Target.Value = "" Then
Else
Sheets("Sheet2").Activate
Sheets("Sheet2").Range("A1").Select
End If
End If

End Sub


--
jwhite100
------------------------------------------------------------------------
jwhite100's Profile: http://www.excelforum.com/member.php...o&userid=27913
View this thread: http://www.excelforum.com/showthread...hreadid=474009