If I open an XMTL excel thru VBS call; the FreezePanes doesnt work. I have been trying a few things, but no luck.

here is the Subroutine in question: (as you can see I have been trying different ways). Thanks.

Sub SetupOrdersHeaders()

Dim r1 As Long



With ActiveWorkbook

  With .Sheets("Orders")
  
    Range("A1").Select
    
     ActiveCell.Offset(0, 0).Value = "ORDER#"
     ActiveCell.Offset(0, 1).Value = "SOLD#"
     ActiveCell.Offset(0, 2).Value = "NAME"
     ActiveCell.Offset(0, 3).Value = "ADDRS1"
     ActiveCell.Offset(0, 4).Value = "ADDRS2"
     ActiveCell.Offset(0, 5).Value = "CITY"
     ActiveCell.Offset(0, 6).Value = "STATE"
     ActiveCell.Offset(0, 7).Value = "ZIPCD"
     ActiveCell.Offset(0, 8).Value = "REG#"
     ActiveCell.Offset(0, 9).Value = "SHIP#"
     ActiveCell.Offset(0, 10).Value = "SHIPNM"
     ActiveCell.Offset(0, 11).Value = "SHPADR1"
     ActiveCell.Offset(0, 12).Value = "SHPAD2"
     ActiveCell.Offset(0, 13).Value = "SHPCTY"
     ActiveCell.Offset(0, 14).Value = "SHPST"
     ActiveCell.Offset(0, 15).Value = "SHPZIP"
     ActiveCell.Offset(0, 16).Value = "SHPDAT"
     ActiveCell.Offset(0, 17).Value = "LAST"
     ActiveCell.Offset(0, 18).Value = "HEEL"
     ActiveCell.Offset(0, 19).Value = "STYLE#"
     ActiveCell.Offset(0, 20).Value = "CONF#"
     ActiveCell.Offset(0, 21).Value = "TOTPR"
     ActiveCell.Offset(0, 22).Value = "SZRUN#"
     ActiveCell.Offset(0, 23).Value = "DESCP1"
     ActiveCell.Offset(0, 24).Value = "DESCP2"
     ActiveCell.Offset(0, 25).Value = "DESCP3"
     ActiveCell.Offset(0, 26).Value = "COST"
     ActiveCell.Offset(0, 27).Value = "AA4"
     ActiveCell.Offset(0, 28).Value = "AA4H"
     ActiveCell.Offset(0, 29).Value = "AA5"
     ActiveCell.Offset(0, 30).Value = "AA5H"
     ActiveCell.Offset(0, 31).Value = "AA6"
     ActiveCell.Offset(0, 32).Value = "AA6H"
     ActiveCell.Offset(0, 33).Value = "AA7"
     ActiveCell.Offset(0, 34).Value = "AA7H"
     ActiveCell.Offset(0, 35).Value = "AA8"
     ActiveCell.Offset(0, 36).Value = "AA8H"
     ActiveCell.Offset(0, 37).Value = "AA9"
     ActiveCell.Offset(0, 38).Value = "AA9H"
     ActiveCell.Offset(0, 39).Value = "AA10"
     ActiveCell.Offset(0, 40).Value = "AA10H"
     ActiveCell.Offset(0, 41).Value = "AA11"
     ActiveCell.Offset(0, 42).Value = "AA11H"
     ActiveCell.Offset(0, 43).Value = "AA12"
     ActiveCell.Offset(0, 44).Value = "B4"
     ActiveCell.Offset(0, 45).Value = "B4H"
     ActiveCell.Offset(0, 46).Value = "B5"
     ActiveCell.Offset(0, 47).Value = "B5H"
     ActiveCell.Offset(0, 48).Value = "B6"
     ActiveCell.Offset(0, 49).Value = "B6H"
     ActiveCell.Offset(0, 50).Value = "B7"
     ActiveCell.Offset(0, 51).Value = "B7H"
     ActiveCell.Offset(0, 52).Value = "B8"
     ActiveCell.Offset(0, 53).Value = "B8H"
     ActiveCell.Offset(0, 54).Value = "B9"
     ActiveCell.Offset(0, 55).Value = "B9H"
     ActiveCell.Offset(0, 56).Value = "B10"
     ActiveCell.Offset(0, 57).Value = "B10H"
     ActiveCell.Offset(0, 58).Value = "B11"
     ActiveCell.Offset(0, 59).Value = "B11H"
     ActiveCell.Offset(0, 60).Value = "B12"
     ActiveCell.Offset(0, 61).Value = "W4"
     ActiveCell.Offset(0, 62).Value = "W4H"
     ActiveCell.Offset(0, 63).Value = "W5"
     ActiveCell.Offset(0, 64).Value = "W5H"
     ActiveCell.Offset(0, 65).Value = "W6"
     ActiveCell.Offset(0, 66).Value = "W6H"
     ActiveCell.Offset(0, 67).Value = "W7"
     ActiveCell.Offset(0, 68).Value = "W7H"
     ActiveCell.Offset(0, 69).Value = "W8"
     ActiveCell.Offset(0, 70).Value = "W8H"
     ActiveCell.Offset(0, 71).Value = "W9"
     ActiveCell.Offset(0, 72).Value = "W9H"
     ActiveCell.Offset(0, 73).Value = "W10"
     ActiveCell.Offset(0, 74).Value = "W10H"
     ActiveCell.Offset(0, 75).Value = "W11"
     ActiveCell.Offset(0, 76).Value = "W11H"
     ActiveCell.Offset(0, 77).Value = "W12"

' Set up Columns Widths

    .Columns("A").ColumnWidth = 7.71     ' ORDER
    .Columns("B").ColumnWidth = 9.43     ' SOLD#
    .Columns("C").ColumnWidth = 30.86    ' Name
    .Columns("D").ColumnWidth = 34       ' ADDRS1
    .Columns("E").ColumnWidth = 34       ' ADDRS2
    .Columns("F").ColumnWidth = 23       ' CITY
    .Columns("G").ColumnWidth = 6.71     ' STATE
    .Columns("H").ColumnWidth = 8.57     ' ZIPCD
    .Columns("I").ColumnWidth = 6.71     ' REG#
    .Columns("J").ColumnWidth = 7.43     ' SHIP#
    .Columns("K").ColumnWidth = 38.29    ' SHIPNM
    .Columns("L").ColumnWidth = 38.71    ' SHPADR1
    .Columns("M").ColumnWidth = 38.71    ' SHPADR2
    .Columns("N").ColumnWidth = 24.71    ' SHPCTY
    .Columns("O").ColumnWidth = 8        ' SHPST
    .Columns("P").ColumnWidth = 8.43     ' SHPZIP
    .Columns("Q").ColumnWidth = 10.29    ' SHPDAT
    .Columns("R").ColumnWidth = 10.71    ' LAST
    .Columns("S").ColumnWidth = 10.57    ' HEEL
    .Columns("T").ColumnWidth = 10.57    ' STYLE#
    .Columns("U").ColumnWidth = 19       ' CONF#
    .Columns("V").ColumnWidth = 8        ' TOTPR
    .Columns("W").ColumnWidth = 8.57     ' SZRUN#
    .Columns("X").ColumnWidth = 40.71    ' DESCP1
    .Columns("Y").ColumnWidth = 40.71    ' DESCP2
    .Columns("Z").ColumnWidth = 40.71    ' DESCP3
    .Columns("AA").ColumnWidth = 10.29   ' COST
    .Columns("AB:BZ").ColumnWidth = 5.29 ' AA4 - W12


    .Rows(CStr(1)).EntireRow.Interior.Color = RGB(253, 233, 217)
    .Rows(CStr(1)).EntireRow.Font.Bold = True
    .Rows(CStr(1)).EntireRow.WrapText = True
  
 '    ActiveWindow.SplitColumn = 0
 '    ActiveWindow.SplitRow = 1
 '    .Range("A1")
 '    ActiveWindow.FreezePanes = True
      
     Rows("1:1").Select
     With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
    End With
    ActiveWindow.FreezePanes = True
  
    End With

  '    .Sheets("Orders").Activate

   '   .SplitColumn = 0
   '   .SplitRow = 1
   '   .FreezePanes = True
      
    '      ws.Activate



  '        Application.DisplayAlerts = False
  '                      Application.ScreenUpdating = False
  '   With ActiveWindow
  '   ActiveWindow.SplitColumn = 0
 '     ActiveWindow.SplitRow = 1
  '    ActiveWindow.FreezePanes = True
   ' End With
    '       Application.DisplayAlerts = True
    '                     Application.ScreenUpdating = True
 
 
 End With


End Sub