Hi ,
I wanna make MsgBoxStyle as Variable
i have 4 option
each one save
vbCritical
vbQuestion
vbExclamation
vbInformation
i do code like this
it cause exception type mismatchCode:Dim opvalue As String If Op1.value = True Then opvalue = "vbInformation" If Op2.value = True Then opvalue = "vbQuestion" If Op3.value = True Then opvalue = "vbCritical" If Op4.value = True Then opvalue = "vbExclamation" MsgBox "testing", vbOKOnly + opvalue, "test"
what i'am doing wrong ?
Thanks




Reply With Quote