J
jo2109
I have recorded the simple macro below but need to change the "F2" cell
address to be a user defined cell preferrably by 'clicking' on cell as I have
had no luck with coding the inputbox or goto...
Basically the macro unhides personal.xls, copies a cell (with 1 in it),
rehides the workbook and then should go to a starting cell, highlight range
and paste values..
Any assistance is greatly appreciated, thanks in advance.
Sub PasteMultipliedValue()
Application.Run "personal.xls!UnhidePersonal"
Range("E1").Select
Selection.Copy
Application.Run "personal.xls!HidePersonal"
Range("F2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=True, Transpose:=False
End Sub
address to be a user defined cell preferrably by 'clicking' on cell as I have
had no luck with coding the inputbox or goto...
Basically the macro unhides personal.xls, copies a cell (with 1 in it),
rehides the workbook and then should go to a starting cell, highlight range
and paste values..
Any assistance is greatly appreciated, thanks in advance.
Sub PasteMultipliedValue()
Application.Run "personal.xls!UnhidePersonal"
Range("E1").Select
Selection.Copy
Application.Run "personal.xls!HidePersonal"
Range("F2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=True, Transpose:=False
End Sub