Sleeper: MAcro Range Help
Code:
Private Sub CommandButton1_Click()
Dim rngName As Range, intResponse
Dim strName As String
ActiveSheet.Unprotect
strName = InputBox("Please Enter Guest Names", "Peverel Hall Hotel - Guest Confirmation")
On Error Resume Next
Set rngName = Range(strName)
If Err.Number = 0 Then ' no error, name already exists
MsgBox "Name already exists." & vbCr & vbCr & _
"Please enter a different name.", _
vbExclamation, "Naming Conflict"
Exit Sub
End If
On Error GoTo handler
ActiveWorkbook.Names.Add name:=strName, RefersTo:=Selection
Selection.Interior.ColorIndex = 4
Selection.FormulaR1C1 = "C"
handler:
If Err.Number = 1004 Then
MsgBox "You Have Entered No Data Or More Than 1 Word"
End If
ActiveSheet.Protect
End Sub
I have this macro and i only want it to work for cells B3:ad14 please help