J
John Pierce
What is it about this little bit of code that makes it give Error 1004
when the Workbook is shared but it works fine when the wb is not
shared?
Private Sub SaveRecord()
ActiveWorkbook.Save
LocateFirstEmptyRow
On Error GoTo ErrorHandler
ActiveSheet.Unprotect
With ActiveCell
.Value = cmbIndividuals
.Offset(0, 1).Value = cmbManagers
.Offset(0, 2).Value = cmbTeams
End With
ErrorHandler:
ActiveWorkbook.Save
LocateFirstEmptyRow
End Sub
Public Sub LocateFirstEmptyRow()
Range("B65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Activate
End Sub
when the Workbook is shared but it works fine when the wb is not
shared?
Private Sub SaveRecord()
ActiveWorkbook.Save
LocateFirstEmptyRow
On Error GoTo ErrorHandler
ActiveSheet.Unprotect
With ActiveCell
.Value = cmbIndividuals
.Offset(0, 1).Value = cmbManagers
.Offset(0, 2).Value = cmbTeams
End With
ErrorHandler:
ActiveWorkbook.Save
LocateFirstEmptyRow
End Sub
Public Sub LocateFirstEmptyRow()
Range("B65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Activate
End Sub