Prevent e-mail if condition not met

[Niven]

Hi, What is wrong with this code?Sub Send_via_email(Cancel As Boolean)'' Send_via_email Macro' Dim blnCancel As Boolean Dim sMail As String Dim rngCell1 As Excel.Range, rngCell2 As Excel.Range sMail = Application.Dialogs(xlDialogSendMail).Show blnCancel = Not Sheets("Weekly Timesheet").Range("C44").Value If blnCancel Then Call MsgBox(Prompt:="Have ALL hours worked been allocated correctly?", Title:="Cannot send e-mail", Buttons:=vbExclamation + vbOKOnly)' If Cancel = blnCancel Then sMail End IfEnd Sub

 

[Niven]

Thanks for always being helpful. No worries I figured out what the problem was. A new workbook is created and then e-mailed. I was a bit dumb in that I was clicking the button on the new workbook on the second computer and obviously there is no code there since it is on the original file. The original file works on other computers. Thanks anyway. You've really been a great help!!