Open a Userform via a Hyperlink

[skyping]

Well...nearly finished my project, but can't seem to get this piece of code to work.....so need your help again!

The following piece of code works really well, apart from the second instance, which is coloured red.....

Sub links()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
If ws.Name = "TOC" Or ws.Name = "Clean" Then 'Do nothing for the TOC sheet.
Else
ws.Hyperlinks.Add Anchor:=ws.Range("A10"), Address:="", SubAddress:="TOC!A1", TextToDisplay:="Go to Index"
ws.Hyperlinks.Add Anchor:=ws.Range("A12"), Address:="", SubAddress:="TOC!A1", TextToDisplay:="Change Name"
End If
Next
End Sub

What I would really like to do is to adapt that particular line so that it would open a userform called UFKeyboard when the hyperlink generated by the code in all sheets except TOC and Clean is pressed. Please can somebody help!!!