자동 리프레시 매크로 설정하기

Sub DoAllSheetRefresh()	
                	
    Dim cntWorkSheet As Integer ' 워크시트 갯수	
    Dim idxWorksheet As Integer ' 위크시트 인덱스	
    Dim objOLE        As Object ' 리프래쉬버튼	
    Dim objSheet      As Worksheet '리프래쉬할 위크시트	
                	
    cntWorkSheet = Application.ActiveWorkbook.Sheets.count ' 워크시트의 갯수를 미리 받음	
                	
    For idxWorksheet = 1 To cntWorkSheet ' 워크시트를 번갈아가면서 리프래쉬버튼을 순서대로 조사한다	
                    	
        On Error Resume Next ' 에러가 발생하더라도 계속 진행한다.	
                    	
        Set objSheet = Application.ActiveWorkbook.Sheets(idxWorksheet) ' 리프래쉬할 시트를 할당한다	
                    	
        objSheet.Activate '해당시트를 보이게 탭을 이동시킨다.	
                    	
        	
        FollowLinksByScreenTip_Object	
        	
                    	
    Next idxWorksheet	
End Sub	
	
	
Sub FollowLinksByScreenTip_Object()	
    Dim ws As Worksheet	
    Set ws = ActiveSheet	
	
    Dim count As Long, j As Long	
    count = ws.Hyperlinks.count	
	
    Dim matching() As Hyperlink	
    Dim n As Long	
    ReDim matching(1 To count)	
	
    For j = 1 To count	
        Dim hl As Hyperlink	
        Set hl = ws.Hyperlinks(j)	
	
        Dim tip As String	
        tip = ""	
        On Error Resume Next	
        tip = hl.ScreenTip	
        On Error GoTo 0	
	
        If StrComp(tip, "DataGuide6", vbTextCompare) = 0 Then	
            n = n + 1	
            Set matching(n) = hl	
        End If	
    Next j	
	
    Dim i As Long	
    For i = 1 To n	
        On Error Resume Next	
        matching(i).Follow NewWindow:=False, AddHistory:=True	
        On Error GoTo 0	
    Next i	
End Sub