Sub ClearData() Worksheets("Clients").Rows("2:" & Rows.Count).ClearContents Worksheets("Cases").Rows("2:" & Rows.Count).ClearContents Worksheets("Sessions").Rows("2:" & Rows.Count).ClearContents End Sub
Preview:
downloadDownload PNG
downloadDownload JPEG
downloadDownload SVG
Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!
Click to optimize width for Twitter