Does your code error out on this line?
height = Worksheets("myworksheet").UsedRange.Rows.Count
I've looked at your workbook and there is no sheet named "my worksheet"