Welcome to Mihir's Blog

Freeze 1st row of excel: Set xlApp = CreateObject("Excel.Application") xlApp.Rows(2).Select xlApp.ActiveWindow.FreezePanes = True Freeze 1st column of excel: Set xlApp = CreateObject("Excel.Application") xlApp.Columns(2).Select xlApp.ActiveWindow.FreezePanes = True Freeze 1st row AND 1st column of excel: Set xlApp = CreateObject("Excel.Application") xlApp.Range("B2").Select xlApp.ActiveWindow.FreezePanes = True

I have searched many posts to top align excel cells while doing export to excel with lotus script, finally I got this working code: Const xlTop=-4160 Set xlApp = CreateObject("Excel.Application") Set xlsheet = xlApp.Workbooks(1).Worksheets(1) xlsheet.Cells.Select Set xlSelection=xlApp.Selection xlSelection.VerticalAlignment = xlTop