Guest User

Untitled

a guest
Sep 26th, 2018
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.28 KB | None | 0 0
  1. MsgBox Application.Range("A1").Value
  2. MsgBox Application.Range("A1").Text
  3.  
  4. Private Sub Workbook_WindowResize(ByVal Wn As Window)
  5.  
  6. Dim oldValue As Boolean
  7. oldValue = Application.ScreenUpdating
  8. Application.ScreenUpdating = Not oldValue
  9. Application.ScreenUpdating = oldValue
  10.  
  11. End Sub
Add Comment
Please, Sign In to add comment