Macro

[Closed]
Report
-
Hello,
In the following macro,

I don't want it to remember the number 100004 which is a number I scanned in after performing Control Find. I want a program that will stop after control find and let me put in any number I choose, then take me to the cell five spaces to the left.

In other words, I want to use the find menu to locate a number I scanned in, then move 5 spaces to the left (so that I can change that number manually). I don't want the macro to remember the number or locations of the previous entry.

I hope I'm making this clear.

Thanks!

Sharon

Sub Macro4()
'
' Macro4 Macro
'

'
Cells.Find(What:="100004", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range("J7").Select
ActiveCell.FormulaR1C1 = "=RC[-1]-1"
Range("J8").Select
End Sub
Sub Macro5()
'
' Macro5 Macro
'

'
Cells.Find(What:="100005", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveWindow.SmallScroll Down:=6
Range("K28").Select
End Sub