![]() |
#2
|
|||
|
|||
![]()
put before end sub
Code:
With ActiveSheet For Each cel In .Range("B2", .Range("B" & .Rows.Count).End(xlUp)) .Hyperlinks.Add Anchor:=.Cells(cel.Row, cel.Column), Address:=cel.Offset(, 2) & "/" & cel & cel.Offset(, -1) Next cel End With |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Add file name automatically in the vba code ... | LearnerExcel | Excel | 3 | 12-30-2019 06:11 AM |
![]() |
klpw | Excel Programming | 1 | 01-14-2016 08:05 PM |
![]() |
commissarmo | Word VBA | 3 | 03-14-2015 12:53 AM |
![]() |
mradmin | Excel | 6 | 10-16-2013 10:34 AM |
![]() |
fuchsd | Word | 6 | 10-25-2011 05:52 AM |