Hi, Could be a case, that you may not have created W028M macro in the modules
Regards Harry On Jun 2, 12:54 pm, Sundarvelan N <nsund...@gmail.com> wrote: > 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
