perhaps
set myrange = application.InputBox(Prompt:="Select changing cells", title:="Changing Cells", type:=8)