Looping Through Worksheets and Activating

[gsandy]

I have worksheets Process, Process1, Process2 etc and I'm using the code below to loop through the sheets. It works but does not activate each worksheet so that I can do something on that worksheet.

Dim ws As Worksheet
    For Each ws In Sheets
        With ws
            If InStr(1, .Name, "Process", 1) > 0 Then
                MsgBox "Activating Current Worksheet"
            End If
        End With
    Next

How can I modify it to work. Thanks Sandy