Hi Friends, Please help me to solve the below issue.
While i try to use the below code it says "Ambiguous name detected :W028M" Private Sub CommandButton1_Click() Dim fn As String fn = Trim(TextBox1.Text) If fn = "W001M" Then Call W001M TextBox1.Text = "" ElseIf fn = "W002BW" Then Call W002BW TextBox1.Text = "" ElseIf fn = "W003BW" Then Call W003BW TextBox1.Text = "" ElseIf fn = "W004W" Then Call W004W TextBox1.Text = "" ElseIf fn = "W005M" Then Call W005M TextBox1.Text = "" ElseIf fn = "W006BW" Then Call W006BW TextBox1.Text = "" ElseIf fn = "W007BW" Then Call W007BW TextBox1.Text = "" ElseIf fn = "W008BW" Then Call W008BW TextBox1.Text = "" ElseIf fn = "W009W" Then Call W009W TextBox1.Text = "" ElseIf fn = "W010W" Then Call W010W TextBox1.Text = "" ElseIf fn = "W011W" Then Call W011W TextBox1.Text = "" ElseIf fn = "W012W" Then Call W012W TextBox1.Text = "" ElseIf fn = "W013M" Then Call W013M TextBox1.Text = "" ElseIf fn = "W014BW" Then Call W014BW TextBox1.Text = "" ElseIf fn = "W015M" Then Call W015M TextBox1.Text = "" ElseIf fn = "W016W" Then Call W016W TextBox1.Text = "" ElseIf fn = "W017W" Then Call W017W TextBox1.Text = "" ElseIf fn = "W018W" Then Call W018W TextBox1.Text = "" ElseIf fn = "W019W" Then Call W019W TextBox1.Text = "" ElseIf fn = "W020W" Then Call W020W TextBox1.Text = "" ElseIf fn = "W021W" Then Call W021W TextBox1.Text = "" ElseIf fn = "W023M" Then Call W023M TextBox1.Text = "" ElseIf fn = "W024M" Then Call W024M TextBox1.Text = "" ElseIf fn = "W025M" Then Call W025M TextBox1.Text = "" ElseIf fn = "W026M" Then Call W026M TextBox1.Text = "" ElseIf fn = "W027M" Then Call W027M TextBox1.Text = "" ElseIf fn = "W028M" Then Call W028M TextBox1.Text = "" ElseIf fn = "W029M" Then Call W029M TextBox1.Text = "" ElseIf fn = "W030M" Then Call W030M TextBox1.Text = "" ElseIf fn = "W032W" Then Call W032W TextBox1.Text = "" ElseIf fn = "W033W" Then Call W033W TextBox1.Text = "" ElseIf fn = "W034W" Then Call W034W TextBox1.Text = "" ElseIf fn = "W035W" Then Call W035W TextBox1.Text = "" ElseIf fn = "W036W" Then Call W036W TextBox1.Text = "" ElseIf fn = "W037D" Then Call W037D TextBox1.Text = "" ElseIf fn = "W038W" Then Call W038W TextBox1.Text = "" ElseIf fn = "W039D" Then Call W039D TextBox1.Text = "" ElseIf fn = "W040W" Then Call W040W TextBox1.Text = "" ElseIf fn = "W041W" Then Call W041W TextBox1.Text = "" ElseIf fn = "W042W" Then Call W042W TextBox1.Text = "" ElseIf fn = "W043W" Then Call W043W TextBox1.Text = "" ElseIf fn = "" Then MsgBox "Please Enter The Report Number", vbOKOnly Else MsgBox "Please Enter The Correct Report Number", vbOKOnly TextBox1.Text = "" End If End Sub Please help me Thanks, N.Sundarvelan -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> HELP US GROW !! We reach over 7000 subscribers worldwide and receive many nice notes about the learning and support from the group.Let friends and co-workers know they can subscribe to group at http://groups.google.com/group/excel-macros/subscribe
