Function go_load(vrtSelectedItem)

Dim MyTime, MyDate
    MyTime = Format(Time, "General Date")
    MyDate = Format(Date, "General Date")

Workbooks.Open (vrtSelectedItem)
Set Db = dbengine.OpenDatabase("C:\Users\опытная.mdb")
Set rs = Db.OpenRecordset("First")
Db.Execute "cls_specification"


For Each sh In ActiveWorkbook.Sheets

    Sheets(sh.Name).Select


Set rng = Range("a1:a20").Find(what:="№", LookIn:=xlValues)

If Not (rng Is Nothing) Then st = rng.Row
st = st + 1
Do Until Len(Trim(Cells(st, 2))) > 6
st = st + 2
Loop
Do Until Cells(st, 2) = ""

With rs
If Rows(st).EntireRow.Hidden = True Then GoTo 1

.AddNew
!№_articl = Trim(Cells(st, 1))
!Perevozki = Cells(st, 3)
!DVD = Cells(st, 4)
!Invest = Cells(st, 5)
!Other = Cells(st, 6)
!Itog = Cells(st, 7)
!Sam_zakup = Cells(st, 8)
!All_Itog = Cells(st, 9)
'!Direction = Trim(Cells(5, 3))
!Direction = Trim(sh.Name)
!Date = Trim(MyDate)
!Time = Trim(MyTime)
.Update
.Bookmark = .LastModified
End With
1:
st = st + 1
 

Loop

Next

End Function

' ...
For Each sh In ActiveWorkbook.Sheets
  If sh.Visible Then
    Sheets(sh.Name).Select
    ' ...
   End If
Next
' ...