First empty cell in selected row

[ACTInstructor]

Good Day -
Having a hard time getting my code right. What I would like to do is the following:
Click in a given cell, and using THAT row, find the 1st empty cell and insert the current date. The date part is easy enough, its finding the 1st empty cell in the row i clicked on.

The code I've been toying with in various manners is:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim xRow As Integer
Dim xCol As String

xRow = Target.Row
xCol = Target.Column

If Not Intersect(Range(Selection.Address), Target) Is Nothing Then

'Rows(xRow).End(xlToRight).Offset(0, 1).Select
'Range (Selection.Address), Target.End(xlToRight).Offset(0, 1).Select

End If

End Sub

any help or guidance is highly appreciated.

 

[offthelip]

I would do that by usingthe BeforeDoubleclick event instead of the worksheet selection change because otherwise you are going to get dates every time you click anywhere
try this:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
rowno = Target.Row
lastcol = Cells(rowno, Columns.Count).End(xlToLeft).Column + 1
Cells(rowno, lastcol) = Date
End Sub

obviously double click to getthe date inserted

 

[ACTInstructor]

That worked just fine. Think I'll fine tune it to select the cell with the new date when its updated, just in case a manual override is needed.
I did switch it back over to selectionchange as the doubleclick exposed the formulas where the names are.

Many thanks for your time and expertise.