I am trying to create an if statement that tests the format of the
cell in addition to the value in the cell; specifically I want to test
if the format of the text in the cell is superscript or not. I have
been trying everything I know and this is what I have so far:

ElseIf Trim(ActiveCell.Value) = "2" And
Cells(ActiveCell.Value).FontStyle.Superscript = True Then
sData = "0"

Any help you could provide would be very much appreciated.

Matt