create worksheet with function

[curious K]

Through VBA I create a worksheet with following code

Sheets("Temp").Delete
Worksheets.Add.Name = "Temp"

Now I want to assign one function to that sheet.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
.
.
.
End Sub

 

[Hui]

Use two subs like:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
  Call NewSht
End Sub

Sub NewSht()
  Application.DisplayAlerts = False
  On Error Resume Next
  Sheets("Temp").Delete
  Worksheets.Add.Name = "Temp"
  Application.DisplayAlerts = True
End Sub

 

[NARAYANK991]

Hi ,

I am not sure I have understood you correctly , but I think this might help :

http://www.cpearson.com/Excel/vbe.aspx

Narayan