Macro Button Click - Show / Hide Set Of Grouped Rows

I found this code for a button, so I can collapse and expand a set number of rows within that sheet. It works exactly the way i want it to, however, now I have a second sheet in my workbook, and I used the same button. Problem here is that when I activate the button, it opens the same rows in EVERY sheet in the workbook. "For each ws in Worksheets" so my question is what is the term for it to only work on a certain worksheet?

Code:
Private Sub ToggleButton1_Change()Application.ScreenUpdating = False
Dim ws As Worksheet
With ToggleButton1
If ToggleButton1.Value = True Then
For Each ws In Worksheets

[Code] ........

Other questions is about the ability to send an MS Outlook email from inside of excel.

I've been trying to find something that does the following:

Click button, Form pops up, has drop downs to select recipient, has field for subject, has field for message body, sends email.