Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
=INDIRECT(A2&"!J2")
=IF(B2>X,A2,"")
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Set rng = Application.Intersect(Target, Range("M1"))
If Not rng Is Nothing Then ActiveSheet.Calculate
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Set rng = Application.Intersect(Target, Range("M1"))
If Not rng Is Nothing Then ActiveSheet.Calculate
Set rng = Nothing
End Sub
[code]
Skip,
Skip@TheOfficeExperts.com
[URL unfurl="true"]www.TheOfficeExperts.com[/URL]