wilg
01-17-2012, 07:18 PM
Im using the following code for an input box that when the cell is selected the inputbox shows up with the current cell value highlighted to overwrite.
Problem is when I key a new value it does not input into the cell. The same value stays.
Dim str As String
str = InputBox(("Please Key in new Number"), "Title", "$" & ActiveCell.Value)
If StrPtr(str) = 0 Then
End If
Any suggestions where I'm going wrong?
Problem is when I key a new value it does not input into the cell. The same value stays.
Dim str As String
str = InputBox(("Please Key in new Number"), "Title", "$" & ActiveCell.Value)
If StrPtr(str) = 0 Then
End If
Any suggestions where I'm going wrong?