I new to VB programming. I need to create a macro that will be able
to copy the sheet and then format the copy to look like the initial
sheet. Here is my copy:

Sub WorksheetCopy()
'
' WorksheetCopy Macro
' Macro recorded 02/26/2007 by fhlbsyh
'

'
Application.Run "'HOEPACalc-final(2).xls'!Sheet19.InsertSheets2"
Sheets("HOEPA Worksheet").Select
Application.Goto Reference:="Anti_Predatory_Lending_Worksheet"
Selection.Copy
Sheets("Loanxys").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("D17").Select
End Submacro

Please help me.

Maggie