Adding scroll bars

I enter data into three different cells. I use a macro to append this data to
a merged cell. Is it possible to add a scroll bar to a merged cell? I can
add the scroll bar but cannot scroll through the data. Here is the macro
I've assigned to a button to append to the merged cell:

Sub test2()
Dim fname As String, lname As String, entry As String, _
comments As String, comments2 As String
ActiveSheet.Unprotect Password:="edison"
fname = [d22].Value
lname = [i22].Value
entry = [d54].Value
comments = [d32].Value
..Value = Now
comments2 = comments & entry & " " & fname & " " & lname & " " & Date & "
--->"
[d32].Value = comments2
End Sub

Is there a way to use a list/combo box to accomplish this? I also need to
add a "yes/no" question to the macro before appending the data and a time
stamp to the data which remains static.

Thanks