Your code is looking at conditional formats, but your text says normal form ats. Assuming the text is correct, isn't it as simple as

[VBA]
Sub CopyFormats()
'Copy all formats from one workbook to another
'Requires sheets to be indentical in each workbook
Dim wbOriginal As Workbook
Dim wbTarget As Workbook
Dim ws As Worksheet
Dim cl As Range
Dim testrange As Range
'Set workbook names here
Set wbOriginal = Workbooks("originals.xls")
Set wbTarget = Workbooks("annetemplate4.xls")
'Turn off screen updates for speed
Application.ScreenUpdating = False
'Loop through each sheet copying formulas to target workbook
For Each ws In wbOriginal.Worksheets
ws.Cells.Copy
wbTarget.Activate
Worksheets(ws.Name).Activate
Cells.PasteSpecial Paste:=xlFormats
Next ws
'Resume screen updates and clear statusbar
With Application
.ScreenUpdating = False
.StatusBar = False
End With
End Sub
[/VBA]