Deselect value in inputbox

[danbates]

Hi,

Is there a way of deselecting the value that is in my input box when it opens?

If so I'd like the prompt to be after the value.

Any help would be appreciated.

Thanks

Dan

 

[Fluff]

Can you post the code that you are using to show the input box?

 

[danbates]

Hi Fluff,

Here is my code:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Dim C As Range
Dim Response As String
If Target.Row <= 6 Then Exit Sub
If Target.Column = 1 Then
Application.EnableEvents = False
Response = UCase(InputBox("Please enter the line and batch.", "QA", "9" & Format(Date - DateSerial(Year(Date), 1, 0), "000") & "1092 - "))
ActiveCell.Offset(0, 1).Select
End If
Application.EnableEvents = True
End Sub

Thanks

Dan

 

[Fluff]

With that code, to deselect the value, simply start typing

 

[danbates]

Hi Fluff,


If I start typing without using the right arrow key, what I type, types over the "92881092 - " that is in the InputBox when loaded.

I missed this line of code from my previous message:

ActiveCell.Value = Response

Thanks

Dan

 

[Fluff]

Ok, I understand what you are saying & I know of no way to do what you are after.

 

[danbates]

Ok. Thank you for having a look.

 

[Fluff]

My pleasure.

 

[dmt32]

For anyone searching for an answer to this issue - try then following workaround using SendKeys I have used in past

SendKeys "{END}"
InvoiceNum = InputBox("Input Invoice Number", "Customer Name: " & addme, 55366)

Dave