If you have added a sheet called Sheet1 then add it to AlwaysShow as follows
AlwaysShow = "Total Revenue, Sheet1"
and change this line to include >0
If Not InStr(AlwaysShow, Sht.Name)>0 Then