not completeing mission

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Worksheets("Data").Activate
Range("b4:m4").Select
Selection.ClearContents
Range("b4").Select
Worksheets("MailE").Activate
Range("b4:m4").Select
Selection.ClearContents
Range("b4").Select ' don't need this right'

This is from a userform option button. Problem when clicked it clears
contents and leaves row blocked until you close userform. I am missing
something.
Thanks to all the community All Of you are a great asset
 
This clears the cells without moving the cuusor, so the
row won't be "blocked".
Sub ClrCntns()
Worksheets("Data").Activate
Range("b4:m4")..ClearContents
Worksheets("MailE").Activate
Range("b4:m4").ClearContents
End Sub
 
Back
Top