Here is an example of event code using the Intersect function:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Isect As Range
Set Isect = Application.Intersect(Target, [A1])
If Not Isect Is Nothing Then
Range("B109").Select
End If
End Sub
Here a number is being entered into A1 and then it is added to the entry in
B1 and then A1 is cleared.
1. To add this code to your file, press Alt+F11,
2. In the VBAProject window, top left side, find your sheet name under your
file name and double click it.
3. Paste in or type the code above.
Another play, perhaps simpler, is to insert a hyperlink
Select cell A1
Click Insert > Hyperlink
Link to: Place in This Document
Enter the cell ref in "Type the cell ref" box: B109
Amend "Text to display" to taste
Click OK
--
Max
Singapore http://savefile.com/projects/236895
Downloads:20,500 Files:365 Subscribers:65
xdemechanik
Another play, perhaps simpler, is to insert a hyperlink
Select cell A1
Click Insert > Hyperlink
Link to: Place in This Document
Enter the cell ref in "Type the cell ref" box: B109
Amend "Text to display" to taste
Click OK
--
Max
Singapore http://savefile.com/projects/236895
Downloads:20,500 Files:365 Subscribers:65
xdemechanik
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.