Sort in VBA

Hi,

I want to sort the defined range in VBA

where one input box will be there which will store whether the data has to be sorted in ascending or descending order as per user selection and accordingly the sort will happen.