Help getting script to exit if cell is blank

[joelly]

Hello , i have the below which is working well for me, however i would like to improve it.

How can i make it so when cell B2 on the sheet is blank to end the script, but continue if there is data.?

Any help would be appreciated.


[VBA][/VBA]Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\letters\6 month reminders.xls")

objExcel.Application.Visible = False
objWorkbook.Sheets("Sheet1").QueryTables(1).Refresh
Wscript.Sleep 7000
objExcel.ActiveWorkbook.Save
objExcel.ActiveWorkbook.Close
[VBA][/VBA]

[mancubus]

hi.

wellcome to VBAX.

you can use green VBA button in quick reply panel to surround your code with VBA tags.

[VBA]Exit Sub[/VBA]
statement.

assuming cell B2 is on Sheet1

[VBA]
'...
'...
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\letters\6 month reminders.xls")
If Trim(objWorkbook.Sheets("Sheet1").Range("B2")) = "" Then Exit Sub
'...
'...
[/VBA]