Can i add textboxes dynamically?? I tried through the
generic code for optionbutton/Checkboxes in a dialog
sheet. it failed as I cannot write anythign on the text
box created.

would appreciate if anyone can suggest.

thanks for the help.

I tried the following 2 ways
1: For i = 1 To 2
iBooks = iBooks + 1
PrintDlg.textBoxes.Add 78, TopPos, 150, 16.5
TopPos = TopPos + 13
Next i
PrintDlg.Buttons.Left = 240

CurrentSheet.Activate
With PrintDlg.DialogFrame
.Height = Application.Max _
(68, PrintDlg.DialogFrame.Top + TopPos - 34)
.Width = 230
.Caption = "Enter worksheet Names to create"
End With
PrintDlg.Buttons("Button 2").BringToFront
PrintDlg.Buttons("Button 3").BringToFront

PrintDlg.Show
If Not cb.Text = "" Then
Str = cb.Text
End If

PrintDlg.Delete
2. Me.Controls.Add (TextBox)..in form