filename = App.Path
filename = App.Path + "\notes\" & fnums & " " & filename + ".htm"
On Error GoTo mm
'Open filename For Outpu