Data validation box popup when select Col A in first empty row, then delete when next cell selected

[Ironman]

Hi

I've put this code together from other bits and pieces in my workbook but it needs gluing together properly and I'm stuck!

I need the below to run only in sheet 'Training Log' when Col A in first empty row is selected:

Private Sub Worksheet_SelectionChange(ByVal target As Range)
If Range("A23358").End(xlUp).Offset(0, 0).Select then ' select Col A in first empty row
With Application
        .SendKeys "i"
        .Dialogs(xlDialogDataValidation).Show  ' show data validation input box with below msg
    .InputTitle = "Reminder"
    .InputMessage = "For Indoor Bike, key Control+\ now"
End With
End If
End Sub

(I got the validation box but no msg - the Input title/msg errored 438 - Object doesn't support property or method)

Then when another cell is selected I need the validation input message clearing.

Many thanks!

 

[Michael M]

BTW, I hope you are backing up the "Exercise Log" workbook on a regular basis !

 

[Ironman]

As we Brits used to say, "I've got more backups than you've had hot dinners" (or something like that) - I've amassed hundreds cos it backs up on close. I could probably delete most of them but I keep them just in case.

 

[Michael M]

Bit of OCD then ???

 

[Ironman]

Haha, absolutely. I've still got all my old race t-shirts and medals

 

[Michael M]

Did you try post #10 ??

 

[Ironman]

Yes thanks, I'm on it now.

 

[Michael M]

Haha, absolutely. I've still got all my old race t-shirts and medals
that explains the hundreds (maybe thousands) of lines of commented code in your workbook....

 

[Ironman]

Yep, "I might need that one day"

 

[Ironman]

Yes, that's useful, thanks Michael "I might use that one day" but seriously, I can't have any text in that column as it's a date column - I guess (as ever) I should have explained that's why I was wanting to use DV.

 

[Michael M]

So, did the code wortk or not ??
AND
I can't have any text in that column as it's a date column.....so why not sinmply have the code select the cell and insert the date ??