MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
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
|How to change the format as number||18||30|
|How to Get a Count of Unique Values and paste them on a different tab||3||17|
|populate some cells after data verification||45||18|
|Save and close already open Excel file using VBscript||9||44|