Private Sub CommandButton1_Click()

'Content.Text = Replace(Content.Text, "Tele Extn:  ;", "Tele Extn: " & Extn.Text & " ;")

'Content.Text = Replace(Content.Text, "Floor:    ;", "Floor: " & Floor.Text & " ;")

Cells(10, 2) = "/" & StaffID.Text

Cells(11, 2) = L(Location.Text)

Cells(12, 2) = Content.Text

Cells(10, 2).Select

ActiveCell.Copy

End Sub

Private Sub StaffID_Change()

If StaffID.Text <> "" Then

Set MyData = New DataObject

MyData.SetText StaffID.Text

MyData.PutInClipboard

End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Cells(10, 2).Copy Then

 Cells(11, 2).Copy

End If

End Sub

Function L(Data) As String

If UCase(Data) = "GZC" Then

L = "GZC - GuangZhou I"

ElseIf UCase(Data) = "FSC" Then

L = "FSC - FoShan"

ElseIf UCase(Data) = "TKH" Then

L = "TKH - TaiKouHui"

End If

End Function