Macros and histograms

Hello,

I want to create a histogram on sheet2 while the data required is on sheet1 using a macro. everytime I try, it either says no data available or output and input are the same, depending what sheet is open when the macro is run. While looking at the VBA it only references ActiveSheet.Range. I've tried renaming the activesheet to the sheet name but this doesn't work. Is it possible to do what I want or can you only create a histogram on the same page as the data? Any help would be greatly appreciated.