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