Advertisement
Guest User

Untitled

a guest
Jun 16th, 2019
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.38 KB | None | 0 0
  1. 'RT_Sandbox Module
  2. Sub sandbox()
  3.  
  4. Call RT_CMM_DATA_COMPILER_INPUTS
  5.  
  6. wkbwatchFolders_table.Activate
  7. lastShtRow = LASTSHEETROW(ActiveSheet)
  8.  
  9. MsgBox lastShtRow
  10.  
  11. End Sub
  12.  
  13.  
  14. 'Inputs module
  15. Sub RT_CMM_DATA_COMPILER_INPUTS()
  16.  
  17. watchFolders_filePath = "D:RT_CMM_Data_File_Paths.xlsx"
  18. Set wkbwatchFolders_table = Workbooks.Open(Filename:=watchFolders_filePath)
  19.  
  20. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement