Public Function fRange_Select(Range As Range, Optional ScrollRow As Long = 0, Optional ScrollCol As Long = 0)
    
    If Range Is Nothing Then Exit Function
    
    With Range
        
        '- ブックをアクティブ化
        If ActiveWorkbook Is .Worksheet.Parent = False Then
            .Worksheet.Parent.Activate
        End If
        
        'シートが表示されていたら
        If .Worksheet.Visible = xlSheetVisible Then
            
            '- シートをアクティブ化
            If ActiveSheet Is .Worksheet = False Then
                .Worksheet.Activate
            End If
            
            '- レンジを選択
            .Select
            
            '- スクロール処理
            If ScrollRow > 0 Then ActiveWindow.ScrollRow = ScrollRow
            If ScrollCol > 0 Then ActiveWindow.ScrollColumn = ScrollCol
            
        End If
        
    End With
    
End Function