Hi Seb,
Try changing this:
ActiveSheet.Unprotect
strName = InputBox("Please Enter Guest Names", "Peverel Hall Hotel - Guest Confirmation")
To this:
ActiveSheet.Unprotect
'Test if upper left cell is within range B3:AD14
With Selection.Range("A1")
If .Column < 2 Or .Row < 3 Then
MsgBox "Sorry! You selected cells " & Selection.Address & vbCrLf & _
"which is outside of the allowable range of $B$3 to $AD$14." & vbCrLf & _
"Please select a new range and try again!", vbOKOnly + vbCritical, _
"Invalid selection!"
Exit Sub
End If
End With
'Test if lower right cell is within range B3:AD14
With Selection
If .Range("A1").Column + .Columns.Count > 31 Or .Range("A1").Row + .Rows.Count > 15 Then
MsgBox "Sorry! You selected cells " & Selection.Address & vbCrLf & _
"which is outside of the allowable range of $B$3 to $AD$14." & vbCrLf & _
"Please select a new range and try again!", vbOKOnly + vbCritical, _
"Invalid selection!"
Exit Sub
End If
End With
strName = InputBox("Please Enter Guest Names", "Peverel Hall Hotel - Guest Confirmation")
HTH,