I have a spreadsheet that I originally built in Excel 03. It ran fine in '03 and '07 but now that some of the users have excel 2010 there is an issue I can't figure out.
Below is my code. When the macro is ran. Everything works correctly however, there are 2 list boxes on the spreadsheet that shrink in size each time the macro runs. If the user makes about 6 - 8 entries the list boxes are almost completely gone. This never happened before. I stepped thru the code and the boxes shrink when the formats are pasted.
Not sure where to even begin. Any help is greatly appreciated.
jamm
Below is my code. When the macro is ran. Everything works correctly however, there are 2 list boxes on the spreadsheet that shrink in size each time the macro runs. If the user makes about 6 - 8 entries the list boxes are almost completely gone. This never happened before. I stepped thru the code and the boxes shrink when the formats are pasted.
Not sure where to even begin. Any help is greatly appreciated.
jamm
Code:
Application.ScreenUpdating = False
Range("RecordBookmark").Offset(1, 0).EntireRow.Insert shift:=xlDown
Range("RecordBookmark").Offset(-1, 0).EntireRow.Copy
Range("RecordBookmark").Offset(1, 0).EntireRow.PasteSpecial xlPasteValues
Range("RecordBookmark").Offset(1, 0).EntireRow.PasteSpecial xlPasteFormats
Range("RecordBookmark").Offset(1, 0).EntireRow.Hidden = False
Range("RecordBookmark").Offset(1, 0).EntireRow.Locked = False
Range("Inputs").ClearContents
Application.CutCopyMode = False
Range("inputs").Cells(1, 1).Select
Application.ScreenUpdating = True
