Well, I am looking into that possibility.. but I am 'programming' the sheet -> its to be used by ppl with limited Excel knowledge. Since I am using VBA, would splitting it be possible?? Plus the report would make extensive use of array formulas + formulas. Will it break if multipe sheets are used?? Here's the loading code anyway..
Sub Load(strFileName As String)
Workbooks.OpenText FileName:=strFileName _
, Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(30, 1), Array(43, 1), Array(57, 1), Array(74, 1), Array(79, 1), _
Array(84, 1), Array(95, 1), Array(117, 1), Array(133, 1), Array(152, 1), Array(171, 1), _
Array(185, 1), Array(193, 1), Array(197, 1), Array(199, 1), Array(200, 1), Array(201, 1), _
Array(204, 1))
Selection.EntireRow.Insert
End Sub
Sub FormatData()
Columns("B:B").NumberFormat = "0"
Columns("C:C").NumberFormat = "0"
Columns("D:D").NumberFormat = "0"
Columns("G:G").NumberFormat = "dd-mmm-yy"
Columns("H:H").NumberFormat = "#,##0.00_);[Red](#,##0.00)"
Columns("I:I").NumberFormat = "#,##0.00;[Red]#,##0.00"
Columns("J:J").NumberFormat = "#,##0.00_);[Red](#,##0.00)"
Columns("K:K").NumberFormat = "#,##0.00_);[Red](#,##0.00)"
Columns("M:M").NumberFormat = "dd-mmm-yy"
End Sub
Sub FormatColumn()
Range("A1").FormulaR1C1 = "NAME"
Range("B1").FormulaR1C1 = "PV"
Range("C1").FormulaR1C1 = "BV"
Range("D1").FormulaR1C1 = "LOAN #"
Range("E1").FormulaR1C1 = "STATE"
Range("F1").FormulaR1C1 = "RESP COLL"
Range("G1").FormulaR1C1 = "DUE DATE"
Range("I1").FormulaR1C1 = "BALANCE"
Range("J1").FormulaR1C1 = "OVL AMT"
Range("K1").FormulaR1C1 = "TOTAL DUE"
Range("L1").FormulaR1C1 = "TRXN"
Range("M1").FormulaR1C1 = "DATE"
Range("N1").FormulaR1C1 = "TIME"
Range("O1").FormulaR1C1 = "ACTIVITY"
Range("P1").FormulaR1C1 = "PLACE"
Range("Q1").FormulaR1C1 = "CONTACT"
Range("R1").FormulaR1C1 = "RTE"
Range("S1").FormulaR1C1 = "LINE 10"
Range("T1").FormulaR1C1 = "ABV"
With Range("A1:T1")
.Font.ColorIndex = 2
.Interior.ColorIndex = 1
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With
Columns("A:T").AutoFit
End Sub