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!

 

[Ironman]

Sorry. Yes, it worked perfectly, thank you.

Brilliant, yes, I guess that's why I was never a teacher That would be perfect, thank you!

 

[Michael M]

Glad we got that sorted...
Remember....AVOID sendKeys unless there is no other option !!!