nelsosviper
New Member
- Joined
- Dec 2, 2016
- Messages
- 6
How do I stop the macro for a user controlled selection in Application.Goto?
Sub Copy_My_Data()
Application.ScreenUpdating = False
Sheets("Data").Range("A1:A20").Copy Destination:=Sheets("Copy Two").Range("Sam")
Application.ScreenUpdating = True
End Sub
Sub Copy_My_Data_With_Input_Box()
Application.ScreenUpdating = False
Dim ans As String
ans = InputBox("Enter Named Range")
Sheets("Data").Range("A1:A20").Copy Destination:=Sheets("Copy Two").Range(ans)
Application.ScreenUpdating = True
End Sub