How can I change my code in Excel 2003 to allow me to paste to multiple cells?

Posted by PikeCoAL on Stack Overflow See other posts from Stack Overflow or by PikeCoAL
Published on 2010-12-21T20:50:34Z Indexed on 2010/12/21 20:54 UTC
Read the original article Hit count: 230

Filed under:
|

Ran in to a little problem. If I try to paste to multiple cells that are in the range in the code below, I get a run time error 13, type mismatch. The cells in the range may have data other than X but I only want the hyperlink to appear if the cell contains X. It works fine if I just type an X in the cell or if I paste to one cell at a time. I will have times when I want to paste other text to mutiple cells in this range. Thanks to Remnant for his help on the original code. This one last hurdle will put me in the clear. Thx.

 Private Sub Worksheet_Change(ByVal Target As Range)
 Dim rangeLimit As Range

 Set rangeLimit = Range 
("B9:B37,C9:C37,D9:D37,E9:E37,F9:F37,G9:G37,H9:H37,I9:I37,J9:J37,K9:K37,L9:L37,M9:M37")

 If Not Intersect(rangeLimit, Target) Is Nothing Then
     If Target = "x" Or Target = "X" Then
    Target.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:="Exceptions!A1", 
    TextToDisplay:=Target.Value

  End If

 End If

 End Sub

© Stack Overflow or respective owner

Related posts about excel

Related posts about vba