Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Function IsValidCCFile(FileName As String) As Range On Error GoTo ErrRoutine Dim WB As Workbook Dim WS As Worksheet Dim MaxRow As Long, I As Long Application.DisplayAlerts = False Set WB = Workbooks.Open(FileName) Set WS = WB.ActiveSheet If WS.Range("P1") = "" Then Set IsValidCCFile = Nothing Else Set IsValidCCFile = WS.UsedRange End If ErrRoutineEnd: WB.Close savechanges:=False Set WS = Nothing Set WB = Nothing Application.DisplayAlerts = True Exit Function ErrRoutine: MsgBox (Error(Err)) GoTo ErrRoutineEnd End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.