Macro to loop through multiple sheets and sum a certain range

Hi all

I have a workbook with a menu tab (entitled "Menu") and multiple sheets afterwards, each with a list of numbers in column H. Can someone please provide a script to sum the range H2:H500 on all the sheets, and return the values to the B column of Menu? So for example B1 would have H2:H500 from Sheet 1, B2 would have H2:H500 from Sheet 2, etc for all the sheets. The name of the sheets is not always the same, so the macro would just cycle through them all in order until the end.

Thanks in advance for any help!!

Paul