Sub OpenHeader()
'DESCRIPTION: Opens Header or Source

    on error goto catch
	FileName = ActiveDocument
	FileExt  = Right(FileName, 2)
	
	if FileExt = "pp" Then FileName = Left(FileName, Len(FileName)-4) + ".h"
	if FileExt = "PP" Then FileName = Left(FileName, Len(FileName)-4) + ".h"
	if FileExt = ".h" Then FileName = Left(FileName, Len(FileName)-2) + ".cpp"
	if FileExt = ".H" Then FileName = Left(FileName, Len(FileName)-2) + ".cpp"

	FilePath = ActiveDocument.Path + "\" + FileName
	'ActiveDocument.Selection = FilePath
	Documents.Open FileName,  "Text" 		 
     exit sub

catch:
     MsgBox  "Error!" 
End Sub