Correct way to write VBA Macros

**hecgroups** · 02-13-2012, 10:22 AM

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.

**Bob Phillips** · 02-13-2012, 10:53 AM

    With Worksheets("Template")
    
        If Application.CountA(.Range("A2:J65536")) = 0 Then
        
            Response = MsgBox("Records Already Empty.", vbOKOnly + vbInformation, "Underwriting Department")
        Else
       
            .Range("A2:J65536").ClearContents
            Response = MsgBox("Records Clear.", vbOKOnly + vbInformation, "Underwriting Department")
        End If
    End With

**hecgroups** · 02-13-2012, 11:04 AM

Thanks bob it works perfectly with my original file. Excellent script.

Thread: Correct way to write VBA Macros

Thread Tools

Display

Correct way to write VBA Macros

Re: Correct way to write VBA Macros

Re: Correct way to write VBA Macros

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions