Solved: Transferring the Userform Textbox Values To a Single Cell As Comment Indicator

[antzint]

Thank you Tinbendr
/S

[VBA]Dim A As String

On Error Resume Next
A = ActiveSheet.Range("A1").Comment

If Err.Number = 91 Then
With ActiveSheet.Range("A1").AddComment
.Text Me.TextBox1.Text & " " & Me.TextBox2.Text
End With
Else
ActiveSheet.Range("A1").Comment.Text Me.TextBox1.Text & " " & Me.TextBox2.Text
End If

On Error GoTo 0[/VBA]