Hello,
Can anyone correct this below mentioned script. I want to display a message if the range have empty cells or make cell empty and display the message.
'If Sheets("Template").Range("A2:J65536") = " " Then
'Msg = "Records Already Empty."
'Style = vbOKOnly + vbInformation '+ vbDefaultButton2
'Title = "Underwriting Department"
'Response = MsgBox(Msg, Style, Title, Help, Ctxt)
'End If
'If Sheets("Template").Range("A2:J65536") <> "" Then
'Sheets("Template").Range("A2:J65536").ClearContents
'Msg = "Records Clear."
'Style = vbOKOnly + vbInformation '+ vbDefaultButton2
'Title = "Underwriting Department"
'Response = MsgBox(Msg, Style, Title, Help, Ctxt)
'End If
Thanks in advance for your help.
Bookmarks