Help with Code for Ambiguous Error

[suzette0735]

Hi! I have two drop downs that change the format of the document I am working on. The first allows the user to choose which sheet they will work on (Estimate sheet, and Warehouse/Installer Copy), the second will update the sheet Estimate sheet so it will print with select rows/columns. I would like a third drop down to do the same as the latter too, but do not know if I am doing this right. Or if there is an easier way? Thanks!

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("F1"), Target) Is Nothing Then
Application.EnableEvents = False
Select Case Target.Value
Case "Estimate/Bid Sheet/Master": estimatebidsheet
Case "Warehouse/Installer Copy": warehousecopy

End Select
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("H1"), Target) Is Nothing Then
Application.EnableEvents = False
Select Case Target.Value
Case "Entire Sheet": ENTIRESHEET
Case "Base Bid Pg 1, Base TTL": BaseBidPg1BaseTTL

End Select
Application.EnableEvents = True
End If
End Sub

 

[Fuji]

You can't use same procedure name within one module, so you need to combine the code like this.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Intersect(Range("F1"), Target) Is Nothing Then
        Select Case Target.Value
            Case "Estimate/Bid Sheet/Master": estimatebidsheet
            Case "Warehouse/Installer Copy": warehousecopy
        End Select
    ElseIf Not Intersect(Range("H1"), Target) Is Nothing Then
        Select Case Target.Value
            Case "Entire Sheet": ENTIRESHEET
            Case "Base Bid Pg 1, Base TTL": BaseBidPg1BaseTTL
        End Select
    End If
    Application.EnableEvents = True
End Sub

 

[suzette0735]

You can't use same procedure name within one module, so you need to combine the code like this.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Intersect(Range("F1"), Target) Is Nothing Then
        Select Case Target.Value
            Case "Estimate/Bid Sheet/Master": estimatebidsheet
            Case "Warehouse/Installer Copy": warehousecopy
        End Select
    ElseIf Not Intersect(Range("H1"), Target) Is Nothing Then
        Select Case Target.Value
            Case "Entire Sheet": ENTIRESHEET
            Case "Base Bid Pg 1, Base TTL": BaseBidPg1BaseTTL
        End Select
    End If
    Application.EnableEvents = True
End Sub

thank you so much!!

 

[Fuji]

You are welcome and thanks for the feedback.