Query relates to VBA code

Hello Everyone, I have tried VBA code with the help of IF statement with Range. But it shows error. What should i write ? Please Help Here is a attached file

VBA.xlsm19 KB

Macros and VBA

OliverScheurich

Aug 02, 2022

Excel

Public Sub FunWithLogic()

  Dim rg As Range
  Dim cell As Range
  
  Set rg = Range("B2:B11")
    
    For Each cell In rg
    
    If cell.Value >= 90 Then
    
    
        MsgBox ("User is 90 or older")
        
    ElseIf cell.Value >= 20 Then
    
        MsgBox ("User is UnderAge")
        
    Else
    
        MsgBox ("Not Allowed!")
        
    End If
    
    Next cell
    
End Sub

Maybe with this code.

VBA.xlsm15 KB

Public Sub FunWithLogic() Dim rg As Range Dim cell As Range Set rg = Range("B2:B11") For Each cell In rg If cell.Value >= 90 Then MsgBox ("User is 90 or older") ElseIf cell.Value >= 20 Then MsgBox ("User is UnderAge") Else MsgBox ("Not Allowed!") End If Next cell End Sub

Forum Discussion

Query relates to VBA code

Resources