Guest User

Untitled

a guest
Mar 17th, 2018
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.36 KB | None | 0 0
  1. TTAA = CDbl(Me.TTAA_textbox.Value)
  2. tolerance = CDbl(Me.tolerance_textbox.Value)
  3. application.Run ("'Workbooks.xls'!module1")
  4.  
  5. Worksheets.Add.Name = "tmp"
  6. Workbooks(WorkbookA.Name).Worksheets("tmp").Range("A1").Value2
  7. 'And remove it later on
  8. Application.DisplayAlerts = False
  9. Workbooks(WorkbookA.Name).Worksheets("tmp").Delete
  10. Application.DisplayAlerts = True
Add Comment
Please, Sign In to add comment