Access Sheet Name, Getting Error

I'm trying to loop thru the various sheets in a workbook but am having trouble accessing the current sheet name. what I have below does not work and I am stuck with how to access the current sheet name, interrogate it for what it is named, and skip processing if it is a particular name.

Private Sub dispnames()

Dim b As Integer
Dim r As Integer
Dim iSheetCount As Integer
Dim iSheet As Integer
Dim sh As Worksheet
Dim wsht As Object

iSheetCount = ActiveWorkbook.Worksheets.Count
For iSheet = 1 To iSheetCount

wsht = sh.Name
If wsht = "summary" Then
Goto skipit
End If

Worksheets(iSheet).Activate
r = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:" & "A" & r).Select
Selection.Copy

Sheets("summary").Select
b = Range("Z" & Rows.Count).End(xlUp).Row + 1
Range("Z" & b).Select
ActiveSheet.Paste
skipit:
Next iSheet