VBA error: Ambiguous name detected: GetCMCS

[gheyman]

I have 5 macro's (not sure if thats the technically correct word to use) that I am trying to run all of them from one button.

So I created this:

Sub Import_PP_Report()

RemoveTab

GetCMCS

ClearMakeTable

AddTitleFormulas

Refresh_All_tables

End Sub

If I run these individually they work with no issues, but when I combined them (see above) I get the ambiguous error message. Any help is appreciated.

here is the one macro that it doesnt like when its combined with the other. But stand-alone it works fine

Sub GetCMCS()

    Dim ProposalReports As Workbook
    Dim CMCS As Variant

    Set ProposalReports = ThisWorkbook

    CMCS = Application.GetOpenFilename("Excel files (*.xls*), *.xls*")
    
    If CMCS <> False Then
        Workbooks.Open (CMCS)
        Set CMCS = ActiveWorkbook
        
        If Evaluate("isref('Material Ad Hoc'!A1)") Then
            Sheets("Material Ad Hoc").Select
            Sheets("Material Ad Hoc").Copy Before:=ThisWorkbook.Sheets(2)
            
                Sheets("Material Ad Hoc").Select
                     With ActiveWorkbook.Sheets("Material Ad Hoc").Tab
                        .Color = 12611584
                        .TintAndShade = 0
                    End With
        Else
                MsgBox "The Selected Workbook does not contain a Material Ad Hoc tab, check to validate the tab is named correctly or select a different Workbook"
             Exit Sub
        End If
    
    End If


End Sub

 

[Joe4]

That usually means that you have two different procedures named "GetCMCS" in your workbook.
Check all your VBA modules (including the Sheet and ThisWorkbook modules), and make sure that you do not have a second copy of the "GetCMCS" procedure in there.

 

[Fluff]

I get the ambiguous error message.

That means you have two macros with the same.

 

[gheyman]

Thank you both. That was it. I was trying to organize the Modules and forgot to delete the original.

Thank You!

 

[Fluff]

Glad we could help & thanks for the feedback.