How select next blank cell in row and add timestap

[sean.golds]

Guys/Gals,

I need to write some simple code so when a button is clicked, a time stamp is created in the next empty cell in a row on another worksheet within the same workbook. I realise this is a fairly simple request for someone well experienced but I'm really a beginner still.

Thanks,

Sean

[JKwan]

try this

Private Sub CommandButton1_Click()
Dim LastRow As Long
Dim Output As Worksheet

Set Output = ThisWorkbook.Worksheets("Sheet2")
LastRow = FindLastRow(Output, "A") + 1
Output.Cells(LastRow, "A") = Now
End Sub
Function FindLastRow(ByVal WS As Worksheet, ColumnLetter As String) As Long
FindLastRow = WS.Range(ColumnLetter & Rows.Count).End(xlUp).Row
End Function

[sean.golds]

Excellent JKwan! Works perfectly thanks...