macro to select 'all' and delete contents.

[emilyloz]

Hi.

I currently have this sub

Private Sub ClearDataBTN_Click()

Dim msgRes As VbMsgBoxResult

msgRes = MsgBox("Are you sure you want to clear your contents?", vbOKCancel)

If msgRes = vbOK Then
ActiveSheet.Range(Cells(6, 1), Cells(27, Rows.Count)).Select.ClearContents
ElseIf msgRes = vbCancel Then
End If

End Sub

But its not working.

The data will always range from column A to column AA
and will start on cell A6

Please help.