Macro que só executa se o valor de um célula for >0

[Paulo2anjos 0]

Amigos, boa tarde.

Tenho uma macro simples que organiza uma lista de nomes em ordem alfabética. Preciso que esta macro somente execute esta ação se o valor de uma célula (E8 por exemplo) seja igual a zero e que apareça uma mensagem se foi executada ou não.

Alguém pode ajudar?

Minha macro é seguinte:

Sub macro5()

'

' Organiza os EPI's em ordem alfabética

'

 

'

Range("C7:D58").Select

ActiveWorkbook.Worksheets("Lista").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Lista").Sort.SortFields.Add Key:=Range("C8:C58"), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("Lista").Sort

.SetRange Range("C7:D58")

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Range("D5").Select

End Sub

 

 

 

 

Obrigado!