Re: Can use arrows after App.InputBox

From: "Steph" <verysmallrox@xxxxxxxxx>
Date: Mon, 13 Jun 2005 17:19:22 -0400

Never mind. Focus issue. Sheet1.Select did it. Thanks anyway!

"Steph" <verysmallrox@xxxxxxxxx> wrote in message
news:uZ9N6wFcFHA.2128@xxxxxxxxxxxxxxxxxxxxxxx
> Hi everyone. When I execute the code below, it prompts an Input box for
> data entry. If I hit cancel or if I enter data into the inputbox, the
arrow
> keys on my keyboard no longer work. If I click on a different ***, then
> back to this one, it now works! Any idea why? Thanks.
>
>
> Sub Overwrite()
> Dim userid As Variant
>
> If ActiveCell.Column <> 5 Or ActiveCell.Row < 5 Then
> MsgBox ("Active Cell must be on the User ID you wish to change")
> Else
> userid = Application.InputBox("New User ID")
> If userid = False Then
> Exit Sub
> Else
> 'Unprotect HR DB
> Data.Unprotect Password
> ActiveCell.Value = userid
> 'Protect HR DB
> Data.Unprotect Password
> Data.Protect Password, True, True, True, True
> End If
> End If
> End Sub
>
>

.

References:
- Can use arrows after App.InputBox
  - From: Steph

Prev by Date: maximum as to the csv data that can be downloaded in to Excel
Next by Date: Copy data from one workbook to another
Previous by thread: Can use arrows after App.InputBox
Next by thread: time-stamping macro
Index(es):
- Date
- Thread