Private Sub CommandButton1_Click()
Dim res as String
res = InputBox("Enter you text")
Activesheet.UnProtect Password:="ABCD"
' what you will do with the text
Activesheet.Protect Password:="ABCD"
End Sub

--
Regards,
Tom Ogilvy


"John Davies" wrote in message
...
I have a protected spreadsheet that occasionaly I need to add comments or
notes to. However all cells on the sheet are in use. Is it possible to
have
a command button that if it is clicked will bring up a resizeable box that
text can be entered into? If so please advise on the code needed.

Thanks in advance for any help.

Regards
John