Sleeper: Loop through range to copy/paste hyperlink

[Bob Phillips]

Another complication:
This code will need to run for every sheet I have in my workbook. The column will always be the same, but how do I incorporate into the code the ability to run it on every sheet? My goal is to have a command button on the very last sheet that when clicked will run the macro for every spreadsheet in the workbook.

Dim sh As Worksheet
Dim iLastRow As Long
Dim sURL As String
Dim i As Long
For Each sh In ThisWorkbook.Worksheets
        With sh
            iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
            For i = 1 To iLastRow
                sURL = .Cells(i, "A").Value
                If Left(sURL, 7) <> "http://" Then
                    sURL = "http://" & sURL
                End If
                .Hyperlinks.Add Anchor:=.Cells(i, "A"), Address:=sURL
            Next i
        End With
    Next sh