エクセル（2003）VBAでつくるマクロに関する質問です。

型を指定する場合は、Rangeです。セルは、Rangeオブジェクトですので。

Shapeオブジェクト用のプログラムではないですよね？　もし、Shapeにハイパーリンクを設定しているのであれば、Shapeです。

Sub Normal()
    
    Dim a As Range
    For Each a In Selection
        If Not IsError(a.Value) Then
            a.Hyperlinks.Add a, a.Value
        End If
    Next

End Sub

なお、このサンプルだと空白セルへもハイパーリンクが張られてしまいますので、if文の中にもう一つif文を入れて""かどうかをチェックするのがいいと思います。

同じif文だと、error式のときに型エラーになってしまいます。

又、サブアドレス（例. q.hatena.ne.jp/1214348151#a838419）が記載あるのであれば、そちらもトライしてみてはどうでしょうか？

Iserror(a.Value)

→こちらは、Iserror(a)でも同じなのですが、後で分かり易くするため、デフォルトであってもプロパティは記載したほうがベターです。