100% stuck VBA send sheets - DESPERATE for help

[jamesmev]

I have a workbook that has 7 sheets. I am looking for a method to send each sheet to a different location with one button. Only if there is data on the sheet. Example
Sheets1-2-3-4 have data in a given range and 5-6-7 do not have any data in that same range sheets 1-2-3-4 will be sent to their designated recipient. 5-6-7 will not be sent.

 

[jamesmev]

I've tried adding a if/else statement. This kills all actions which does not allow any sheet to send.

[FONT=Calibri][SIZE=3][COLOR=#000000]Dim celltxt As String[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]celltxt = ActiveSheet.Range("A2").Text[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]If InStr(1, celltxt, "5200") Then[/COLOR][/SIZE][/FONT]

from there I have the vba to send the sheet.
At the end I have an Else Statement.