Execute macro on drop-down list change

[SpectreHUN]

So I have a Sheet, where I want to show only the data which is relevant based on the user's selection in the drop-down list (G3). My code so-far:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G3")) Is Nothing Then
Application.Run "HideRows"
End If
End Sub
Sub HideRows()
On Error Resume Next
LTRW = Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To LTRW
    If Cells(i, 7).Value = "Import" Then
    For j = 60 To 82
        Cells(j, 20).EntireRow.Hidden = True
      
    Next j
    End If
    If Cells(i, 7).Value = "Közösségen belüli beszerzés" Then
    For j = 60 To 82
        Cells(j, 20).EntireRow.Hidden = False
      
    Next j
    End If
Next i
End Sub

It works, but it's not automatic. I have to manually run the macro every time there is a change in G3. Any help would be appreciated!

 

[SpectreHUN]

Did it!

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(3, 7).Value = "Import" Then
   Rows("60:82").Hidden = True
Else
   Rows("60:82").Hidden = False
End If
End Sub

I still don't understand why the others didn't work though. Anyway, thanks for the help! Wouldn't have been able to succeed without it!

 

[Alan_P]

Got there in the end

 

[SpectreHUN]

Found out what's been the problem the whole time. The sheet was protected..

The final code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(3, 7).Value = "Import" Then
   ActiveSheet.Unprotect '
   
   Rows("60:82").Hidden = True
   
   ActiveSheet.Protect , DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
   ActiveSheet.Unprotect

   Rows("60:82").Hidden = False
   
   
   ActiveSheet.Protect , DrawingObjects:=True, Contents:=True, Scenarios:=True

End If
End Sub

 

[Alan_P]