Excel Worksheet_change with 2 functions to insert date and hyperlink window

M

mahtin360

Joined
Jul 17, 2017
Messages
1
Reaction score
0
Hello,

I am using a worksheet_change sub to monitor data entries and put a date in column "K"
No i want to add to that routine that if a cell in column H is input by the user as "yes" the gui to insert a hyperlink into that cell opens.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Row = 1 Then Exit Sub   'don't touch if 1st row
   If Target.Column = 1 Then Exit Sub 'don't touch with macro if target is column A
   If IsEmpty(Target) Then Exit Sub  'allow deletion of cell content in entire row
   If Not IsEmpty(Cells(Target.Row, 11)) Then Exit Sub 'ignore if already has a value
   Cells(Target.Row, 11) = Now   '--Column should be preformatted
End Sub

can anyone help me adding "Application.Dialogs(xlDialogInsertHyperlink).Show" to this?

Many thanks
 
Back
Top