Setting up row height and autofit column width with VBA

[jaredli]

Hi Experts

I have attached a sample spreadsheet with the code i have used to split based on a column, now is there any way i can set the row height to the split worksheets (15 rowheight) and autofit all columns through the new worksheets?

Thanks heaps for your help