Help with Code

AJacLo · #1 02-08-2017, 09:20 PM

After I run this macro again, I get the same values. Can someone tell me how to reset the specified range "Table," so that I can add another range and calculate new values?

Code:

Sub MacroTry1()
'
' MacroTry1 Macro
Dim Specifiedrange As Range
Set Specifiedrange = Application.InputBox("Specify the range:", Type:=8)
Specifiedrange.Name = "Table"
ActiveCell.FormulaR1C1 = "=COUNTIF(Table,"">0"")"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=COUNT(Table)"
Range("F2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
Range("D3").Select
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA Code to search for field codes with certain text before the Field code and to change style	welcometocandyland	Word VBA	4	02-08-2017 06:53 PM
QR-code	qrcode	Word	3	05-26-2015 06:38 AM
code to run once only	gerrymac	Word VBA	6	07-26-2014 12:19 AM
Where does my code go?	rbaldwin	Word VBA	3	03-14-2012 02:31 PM