Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hyperlink All Column Values
Hello,
I would like to convert all values in column B to the 2nd W.Sheet (Receipt Notice) I'm using the following which worked initially but now gives me the below error since adding additional string to the macro to perform other functions. " Error... 438 , Object doesn't support this property or method" Dim cell As Range Dim Rng As Range Set Rng = Range("B2:B" & Cells.Rows.Count). _ SpecialCells(xlConstants, xlTextValues) For Each cell In Rng If Trim(cell.Value) < "" Then ActiveSheet.Hyperlinks.Add Anchor:=cell, _ Address:=Sheets("Receipt Notice").cell("A9"), _ ScreenTip:=cell.Value, _ TextToDisplay:=cell.Value End If Next cell I don't believe I've accidently altered any of the code but it has just stopped working. Propably goes without saying I'm new to VBA but learned to patch things together 'OK but this has me stumped. Any help appreciated. Thx, Steven |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Hyperlink values | Excel Discussion (Misc queries) | |||
Autosum column values, if separate column values equal certain val | Excel Worksheet Functions | |||
Adding multiple values in one column based on multiple values of the same value (text) in another column | Excel Discussion (Misc queries) | |||
Getting values from hyperlink | Excel Discussion (Misc queries) | |||
Calculating values to column D with formula based on values column A | Excel Programming |