If #VALOR! then

[Tandy]

Boa tarde pessoal! Estou precisando verificar se uma célula contém o erro “#VALOR!” como faço para fazer essa comparação no basic?
Para finalizar a pergunta, será assim: Se H6 for igual a “#VALOR!” então oculte a coluna H. Alguém poderia me ajudar?

[Grafeno]

Boa noite,

O erro pode ser lido como **texto** (string) através da **API UNO**:

Sub Main
Dim oDoc As Object, oPlan As Object
Dim oCel As Object
Dim nCol as Long

   oDoc = ThisComponent
   oPlan = oDoc.Sheets.getByName( "Planilha1" )
   oCel = oPlan.getCellRangeByName( "H6" )
   
   If oCel.String = "#VALOR!" Then
      nCol = oCel.CellAddress.Column
      oPlan.Columns.getByIndex( nCol ).IsVisible = False      
   End If   
End Sub

Atte,

[Tandy]

Muito Obrigado!!!