Question : Need help with div positioning...

Hi,

Can someone please tell me why the <div> with "main content" is shifted down below the "sidebar" content when viewed / rendered in Firefox and Opera??? It looks fine on IE though.

<html>
<head>
<title>Testing Page Layout</title>
</head>

<body>
<div style="width:1000px;">
<div style="width:1000px;text-align:center;border:1px solid black;">header</div>
<div style="width:1000px;text-align:center;border:1px solid black;">
      <div style="width:150px;float:left;text-align:left;padding-left:20px;">
            sidebar
            <p>
            link 1<br>
            link 2<br>
            link 3<br>
            link 4<br>
            </p>
      </div>
      <div style="width:848px;float:right;text-align:left;padding-left:20px;clear:left;">
            main content
            <p>
                  dynamic content line 1 here<br>
                  dynamic content line 2 here<br>
                  dynamic content line 3 here<br>
                  dynamic content line 4 here<br>
                  dynamic content line 5 here<br>
            </p>
      </div>
</div>
<div style="width:1000px;text-align:center;border:1px solid black;clear:both;">footer</div>
</div>
</body>
</html>

Many thanks in advance.

Answer : Need help with div positioning...

OK, to set the named range to an external workbook, try this code:

Be sure to change the filepath to where your "ACA Week x" workbooks are located in this line:

filePath = "C:\"

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:



Sub CreateNamedRangesExtWbk()
'Create Named Range in External Workbook
    
    Dim wb As Workbook
    Dim filePath As String
    Dim currentWbk As String
    
    filePath = "C:\"
    
    Application.ScreenUpdating = False
    currentWbk = ActiveWorkbook.Name
    
    For i = 1 To 52
        Set wb = Workbooks.Open(filePath & "ACA Week " & i)
        Workbooks(currentWbk).Names.Add Name:="Tails" & i, RefersTo:=wb.Worksheets("TailAvailability").Range("$C$6:$R$204")
        wb.Close False
        Set wb = Nothing
    Next

    Application.ScreenUpdating = True
    
    MsgBox "Named Ranges have been set!"

End Sub