Advertisement
Guest User

Untitled

a guest
Mar 17th, 2017
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub CommandButton1_Click()
  2. Range("B11:C17,F11:F14,F16:F20,F23:F30,H16:H20,H24:H28,H30,J24:J28").ClearContents
  3. Range("B20").Value = "Normal"
  4. Range("C23:C30").Value = "None"
  5. Range("I20,J20,I30,J30").Value = "No"
  6. Range("I22").Value = "Mobs"
  7. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement