Posted By

RogerSpencelayh on 11/27/10


Tagged

header proc


Versions (?)

Procedure Header


 / Published in: Visual Basic
 

  1. '===============================================================================
  2. ' Subroutine Name: SubName
  3. '-------------------------------------------------------------------------------
  4. ' Author: Roger Spencelayh
  5. '-------------------------------------------------------------------------------
  6. ' Purpose:
  7. '---------
  8. ' description
  9. '-------------------------------------------------------------------------------
  10. ' Constants:
  11. '-----------
  12. ' Name Description
  13. '------------------ ----------------------------------------------------------
  14. ' cStrSub - Procedure name for use in the error handler
  15. ' cStrDatabaseName - Database file
  16. '-------------------------------------------------------------------------------
  17. ' General Variables:
  18. '--------------------
  19. ' Name Description
  20. '------------------ ----------------------------------------------------------
  21. ' lngRowCount - Counter to hold number of rows in a range
  22. ' strWindowName - Handle for the Worksmart workbook opened in the routine
  23. '-------------------------------------------------------------------------------
  24. ' Revisions:
  25. '-----------
  26. ' Date By Reason
  27. ' ---------- --- ---------------------------------------------------------------
  28. ' dd/mm/mmmm RPS Initial release
  29. '===============================================================================
  30.  
  31. '===============================================================================
  32. ' Set up constants, variables, settings and Error Handler
  33. '===============================================================================
  34.  
  35. Const cStrSub As String = "SubName"
  36.  
  37. Const cStrWorkbookName As String = ""
  38.  
  39. '-------------------------------------------------------------------------------
  40. ' Declare variables
  41. '-------------------------------------------------------------------------------
  42.  
  43. Dim lngRowCount As Long
  44. Dim strWindowName As String
  45.  
  46. '-------------------------------------------------------------------------------
  47. ' Error Handler and settings (uncomment ScreenUpdating and DisplayAlerts after
  48. ' testing)
  49. '-------------------------------------------------------------------------------
  50.  
  51. On Error GoTo ErrHandler
  52.  
  53. Application.ScreenUpdating = False
  54. Application.DisplayAlerts = False
  55. Application.StatusBar = ""

Report this snippet  

You need to login to post a comment.