Run a Macro when you click on a cell

This puts a border around the cell?

Also, for the tracking number section. I want it to automatically go up one at a time. I know the formula to enter to do this but is there a way i can do it that the number only comes with you click on the cell?

man i appreciate all your help. If you were closer I'd take you out for some beers lol.

HERE IS THE CORECT FILE. SORRY.

Quote:

---

Originally Posted by DILJEEV

This puts a border around the cell?

Also, for the tracking number section. I want it to automatically go up one at a time. I know the formula to enter to do this but is there a way i can do it that the number only comes with you click on the cell?

man i appreciate all your help. If you were closer I'd take you out for some beers lol.

---

No, see attached. Also I added some code to your sheet module to autonumber when you click anywhere on the row...

[VBA]Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Application.EnableEvents = False
If Target.Column = 2 Then
UserForm1.Show
End If
If Target.Column = 15 Then
UserForm1.Show
End If
If Target.Column = 17 Then
UserForm1.Show
End If
Application.EnableEvents = True
Dim rowoffset As String
rowoffset = -1
Intersect(ActiveCell.EntireRow, Columns("A")).Value = ActiveCell.Row + rowoffset
End Sub
[/VBA]

I'm not much of a beer drinker. I like Skyy though......one day maybe.

Wow you are awesome!!!! Thanks so much for all your help. Is there way I can remove that code for just one cell? The cell where it says Tracking Number? If it gets clicked there it goes to 0.

[VBA]Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Application.EnableEvents = False
If Target.Column = 2 Then
UserForm1.Show
End If
If Target.Column = 15 Then
UserForm1.Show
End If
If Target.Column = 17 Then
UserForm1.Show
End If
Application.EnableEvents = True
If Not Target.Row = 1 Then
rowoffset = -1
Intersect(ActiveCell.EntireRow, Columns("A")).Value = ActiveCell.Row + rowoffset
End If

End Sub
[/VBA]

You should move the application.Enableevents = true to below the last end if....I got in a hurry.