macro to wrap/unwrap text for a given range

This is my current code to unwrap text for a given range

Sub WrapTEXT()

    Rows("2:500").Select
    Cells.WrapTEXT = False
    Range("A2").Select
    
End Sub

I would like to build in a IF function to say if the given range is unwrapped (Cells.WrapTEXT = False) THEN wrap the range (Cells.WrapTEXT = True)
i.e. everytime the macro button is clicked it will wrap and unwrap the data range