Why VBA inserted link won't work????

Why does this not work.

If Left(WsMas.Range("MasLoanProduct").Value, 4) = "Busi" Or
Left(WsMas.Range("MasLoanProduct").Value, 4) = "Coml" Then
ActiveSheet.Hperlinks.Add _
Anchor:=WsMas.Range("MasChklstLnk"), _
Address:="U:\Loan Forms\Check Lists\COMMERCIAL CHECK LIST.xls", _
TextToDisplay:="COMMERCIAL CHECKLIST LINK"
End If

It is basicly trying, via VBA, to insert a link in a cell depending on the
value of another cell.

I get the following error

Method "Range" in object "Worksheet" failed.

Any suggestions appreciated.
Dennis

Den wrote:
I get the following error

Method "Range" in object "Worksheet" failed.


Most likely you have mistyped the range name,e.g. MasChklstLnk

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - respond to newsgroup

Hi,

If you just copy and paste that code from VBA;

You misspelled hyperlinks.

ActiveSheet.Hperlinks.Add......
^
--
Regards

Haldun Alay

To e-mail me, please remove AT and DOT from my e-mail address.



"Den" , iletide þunu yazdý
...
Why does this not work.

If Left(WsMas.Range("MasLoanProduct").Value, 4) = "Busi" Or
Left(WsMas.Range("MasLoanProduct").Value, 4) = "Coml" Then
ActiveSheet.Hperlinks.Add _
Anchor:=WsMas.Range("MasChklstLnk"), _
Address:="U:\Loan Forms\Check Lists\COMMERCIAL CHECK LIST.xls", _
TextToDisplay:="COMMERCIAL CHECKLIST LINK"
End If

It is basicly trying, via VBA, to insert a link in a cell depending on the
value of another cell.

I get the following error

Method "Range" in object "Worksheet" failed.

Any suggestions appreciated.
Dennis