قدم حاجة محترمة بالإكسيل (Hyperlink creation & Hide Worksheets)

هتتعلم ازاى توصل بين اكثر من ملف فى الإكسيل وتخفى الملفات بحيث تقدم تقرير بياناته واضحة و بشكل احترافى 😍
VBA main worksheet:
On Error GoTo FixThings
Dim strAddress As String
strAddress = Application.WorksheetFunction.Substitute(Target.SubAddress, "'", vbNullString)
ThisWorkbook.Worksheets(VBA.Left$(strAddress, _
VBA.InStr(1, strAddress, "!") - 1)).Visible = xlSheetVisible
Application.EnableEvents = False
Target.Follow
FixThings:
Application.EnableEvents = True
------------------------------------------------------------------
VBA Hide worksheets:
Me.Visible = xlSheetHidden
-----------------------------------------------------------------
Enjoy 😘