From 468cabde69df04156b7cdaf3f66ab13e0362a5e8 Mon Sep 17 00:00:00 2001
From: updsv7 <updsv7@guan.onehr>
Date: Mon, 13 Apr 2026 19:57:30 +0900
Subject: [PATCH] Fix ToggleAutoFilter - select row first

---
 vba_code_common.bas | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/vba_code_common.bas b/vba_code_common.bas
index 23a1085..39ef58d 100644
--- a/vba_code_common.bas
+++ b/vba_code_common.bas
@@ -175,11 +175,10 @@ Sub ToggleAutoFilter(Optional ByVal filterRow As Long = 6)
     
     ' Check if auto filter is already on
     If ws.AutoFilterMode Then
-        ' Turn off auto filter
         ws.AutoFilterMode = False
     Else
-        ' Turn on auto filter at row 6
         If filterRow >= 1 Then
+            ws.Range(ws.Cells(filterRow, 1), ws.Cells(filterRow, 20)).Select
             ws.Range("A" & filterRow).AutoFilter
         End If
     End If