if statement

[bradyj7]

Hi there,

I have values in column I. I want to check if any values are greater than 5 and if true then close the workbook. Any ideas?

Thanks

 

[VoG]

Maybe

Sub test()
If WorksheetFunction.Max(Columns("I")) > 5 Then ActiveWorkbook.Close
End Sub

 

[texasalynn]

try this

Sub FiveValue()
Dim WSht As String
Dim x As Long
WSht = ActiveWorkbook.Name
x = WorksheetFunction.Max(Columns("I"))
If x > 5 Then
    Workbooks(WSht).Close False
    Exit Sub
End If
MsgBox "Values were not greater than 5"
End Sub