Error 6: Overflow

[CMDMA03]

I keep getting error 6: overflow when my macro encounters a division error. Is there any way to account for a division error (i.e., division by 0) within the calculations below? Like maybe embedding an if statement?

dblGRAdminValue = -.Worksheets("MH-III (landscape)").Range("K42") / _
        .Worksheets("MH-III (landscape)").Range("AW42")                 'captures the GR Admin % value
        dblMHBGAdminValue = -.Worksheets("MH-III (landscape)").Range("K47") / _
        .Worksheets("MH-III (landscape)").Range("AW47")                 'captures the MHBG Admin % value

 

[shg]

    With .Worksheets("MH-III (landscape)")
        If .Range("AW42").Value <> 0 Then
            dblGRAdminValue = -.Range("K42").Value / .Range("AW42").Value
        Else
            ' what?
        End If
 
        If .Range("AW47").Value <> 0 Then
            dblMHBGAdminValue = -.Range("K47") / .Range("AW47").Value
        Else
            ' what?
        End If
    End With

 

[CMDMA03]

Thanks; worked like a charm.

With .Worksheets("MH-III (landscape)")
            If .Range("K42").Value <> 0 Then
                dblGRAdminValue = -.Range("K42") / .Range("AW42")
            
            Else
                
                 dblGRAdminValue = 0.0000001
            
            End If
        
            If .Range("K47").Value <> 0 Then
                dblMHBGAdminValue = -.Range("K47") / .Range("AW47")
            
            Else
                
                dblMHBGAdminValue = 0.0000001
            
            End If
            
End With

 

[shg]

You're welcome, good luck.