VB Codes work smoothly only if there no other opened Workbooks. Why & What to do?

[countryfan_nt]

Hello friends, Hope all is well!

The below two codes are working smoothly, and are placed in VBA editor in a sheet named "GA" or Sheet5.

Anyway, if 1 or more workbooks are open the codes don't work. How can I force the below codes to exclusively work on the workbook & sheet that it is in?

Thank you very much in advance!

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("F7", "F15")) Is Nothing Then Exit Sub

    Rows("13:15").Select
    Selection.EntireRow.Hidden = True

With Target
If Worksheets("GA").Range("f7").Value = "Release" Then
Range("13:13,14:14,15:15").Select
Selection.EntireRow.Hidden = True

    ElseIf Worksheets("GA").Range("f7").Value = "Decreased" Then
    Range("13:13,14:14").Select
     Selection.EntireRow.Hidden = False
     Range("15:15").Select
     Selection.EntireRow.Hidden = True

    ElseIf Worksheets("GA").Range("f7").Value = "Extend" Then
    Range("15:15").Select
     Selection.EntireRow.Hidden = False
     Range("13:13,14:14").Select
     Selection.EntireRow.Hidden = True
    
 ElseIf Worksheets("GA").Range("f7").Value = "Extend" Then
    Range("13:13,14:14").Select
     Selection.EntireRow.Hidden = True
 
   ElseIf Worksheets("GA").Range("f7").Value = "Extend & Decreased" Then
    Range("13:13,14:14,15:15").Select
     Selection.EntireRow.Hidden = False
   
   ElseIf Worksheets("GA").Range("f7").Value = "" Then
    Range("13:13,14:14,15:15").Select
    Selection.EntireRow.Hidden = True

End If
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim dt As Variant
    Dim InitialDate As Date
    
If Intersect(Target, Range("F7", "K15")) Is Nothing Then Exit Sub
    With Target
    
If Target.Address = "$K$15" Then
    

        dt = ShowCalendar("Double Click on the selected date", InitialDate)
        
        If Not IsEmpty(dt) Then
        
        Range("F15") = CDate(dt)
       
                End If
        
        Cancel = True
    End If

End With
End Sub

 

[Herakles]

Hello friends, Hope all is well!

The below two codes are working smoothly, and are placed in VBA editor in a sheet named "GA" or Sheet5.

Anyway, if 1 or more workbooks are open the codes don't work. How can I force the below codes to exclusively work on the workbook & sheet that it is in?

Thank you very much in advance!

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("F7", "F15")) Is Nothing Then Exit Sub

    Rows("13:15").Select
    Selection.EntireRow.Hidden = True

With Target
If Worksheets("GA").Range("f7").Value = "Release" Then
Range("13:13,14:14,15:15").Select
Selection.EntireRow.Hidden = True

    ElseIf Worksheets("GA").Range("f7").Value = "Decreased" Then
    Range("13:13,14:14").Select
     Selection.EntireRow.Hidden = False
     Range("15:15").Select
     Selection.EntireRow.Hidden = True

    ElseIf Worksheets("GA").Range("f7").Value = "Extend" Then
    Range("15:15").Select
     Selection.EntireRow.Hidden = False
     Range("13:13,14:14").Select
     Selection.EntireRow.Hidden = True
   
 ElseIf Worksheets("GA").Range("f7").Value = "Extend" Then
    Range("13:13,14:14").Select
     Selection.EntireRow.Hidden = True
 
   ElseIf Worksheets("GA").Range("f7").Value = "Extend & Decreased" Then
    Range("13:13,14:14,15:15").Select
     Selection.EntireRow.Hidden = False
  
   ElseIf Worksheets("GA").Range("f7").Value = "" Then
    Range("13:13,14:14,15:15").Select
    Selection.EntireRow.Hidden = True

End If
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim dt As Variant
    Dim InitialDate As Date
   
If Intersect(Target, Range("F7", "K15")) Is Nothing Then Exit Sub
    With Target
   
If Target.Address = "$K$15" Then
   

        dt = ShowCalendar("Double Click on the selected date", InitialDate)
       
        If Not IsEmpty(dt) Then
       
        Range("F15") = CDate(dt)
      
                End If
       
        Cancel = True
    End If

End With
End Sub

This may help.

Qualifying References

It is good practice to do this even if only to make the code easier to understand.

 

[Herakles]

This may help.

Qualifying References

It is good practice to do this even if only to make the code easier to understand.

Whoops! Double pasted URL.

Try this:

Qualifying References