How can make my code add a sheet to a selection?

Something like:

Dim WSName As Worksheet
For Each WSName In Worksheets
If Left(WSName.Name, 3) = "Pre" Then
'the code for adding the sheet to the selection
End If
Next

Thanks
The Doctor